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GFA-BASIC 3.5 Interpreter Amiga 


Weiterentwicklung des GFA-BASIC 3.0 Interpreter mit 35 zusätzlichen Befehlen aus der 
linearen Algebra und Kombinatorik. Außerdem verbesserte Editor-Eigenschaften 
(Funktionen falten und Suche in Kopfzeilen gefalteter Funktionen bzw. Prozeduren) 


GFA-BASIC 3.5 Compiler 


DM 


Mit dem integrativen Compiler werden Ihre GFA- 
BASIC-Programme noch schneller. 

Viele Optionen und Linker (kompatibel zu A-Link und B-Link) 
für andere Programmiersprachen im Lieferumfang enthalten. 


DM 139,- 





Der Einstieg in GFA-BASIC 3.0 Amiga 


Ein Lehrbuch für Programmieranfänger. 

Dietmar Schell vermittelt auch dem unerfahrenen Programmierer 

Ideen und Anwendungsbeispiele für das Programmieren 0 % 4* 

in GFA-BASIC. 248 Seiten, Hardcover, ISBN 3-89317-009-X DfVI 2 t#- 



Training für Fortgeschrittene 
GFA-BASIC 3.0 


Wer schon Erfahrung auf dem Amiga oder in irgendeinem 
BASIC-Dialekt hat, wird von den beiden Autoren bestens betreut. 

Man erfährt und lernt eine Menge über Programmiertricks, v%|y| J% f% 
nützliche und verwendbare Prozeduren, ■— IVI 

Anwendungen und die Besonderheiten des GFA-BASIC für Amiga. 

329 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-010-3 


n®*t 


GFA-ASSEMBLER Amiga 


Professioneller Makro-Assembler für 68000-Programmierer: 

Leistungsfähiger Editor mit integriertem Assembler und Linker. 

Nachladbarer Debugger. _ __ _ _ — 

Jetzt auch für die Commodore-Amiga-Computer lieferbar. DfVI 1A9,— 


r def n 



Das Computer-Animationssystem für Ihren Amiga 
mit der Funktionalität und den Eigenschaften, die 
man nur bei erstklassigen Grafiksystemen findet. 

Das professionelle 2D-Animationsprogramm von 
ANTIC-Software, exklusiv von GFA. Umfangreiches 
Handbuch und Programm in Deutsch. DM 198,- 


GFA Systemtechnik GmbH 
Heerdter Sandberg 30 
D-4000 Düsseldorf 11 
Tel. 0211/55 04-0 Fax 0211/55 04-44 
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Endlich fertig! 

Ab Ende Mai wird der ASSEMBLER 
V 1.5 für den Atari ST ausgeliefert. 
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Das neueste von GFA 


Wie in jedem Jahr war GFA auch in 
diesem Jahr wieder auf der CeBIT ver¬ 
treten. Da nicht alle Kunden zu un¬ 
seren Ständen Vordringen konnten, 
möchten wir Ihnen heute unsere 
Neuheiten und Highlights in aller 
Ruhe vorstellen. 

Für Zeichnungen und Konstruktionen 
im technischen Bereich hat sich GFA- 
DRAFT-plus, wie bekannt, bestens 
bewährt. Nach der PC-Version ist nun 
auch die Atari-Version um einige 
nützliche Features erweitert worden. 
Neben neuen Hilfsprogrammen zur 
Konvertierung der CAD/CAM- 
Zeichnungen für das DXF-Format 
haben Sie nun auch die SPLINES zur 
Verfügung. Diese Freiformkurven- 
Funktion ermöglicht nun auch die 
Konstruktion von komplizierten Bau¬ 
teilen wie Tragflächen, Strömungsli¬ 
nien oder Kunststoffspritzformen auf 
einfachste Art. Neu ist auch der Meta¬ 
filetreiber, über den GFA-DRAFT- 
Zeichnungen in GEM unterstützende 
DTP-Programme übernommen wer¬ 
den können. Natürlich ist durch diesen 
Treiber auch die Ausgabe der 
Zeichnungen auf dem Atari-Laser- 
printer möglich. GFA-DRAFT-plus 
3.1 für den Atari ist für 398,- DM er¬ 
hältlich (unverbindl. Richtpreis). 

Peter Holzwarth, Roland Schütz und 
Thomas Ströter hatten sichtlich Pro¬ 
bleme mit dem Ansturm auf den GFA- 
ASSEMBLER 1.5, der auf der CeBIT 
erstmals vorgestellt wurde. Assem¬ 
blerfreunde können sich freuen, denn 
mit dem GFA-ASSEMBLER 1.5 ist 
das Erstellen von Assemblerprogram¬ 
men noch einfacher und schneller ge¬ 
worden. Die Makrofunktionen des As¬ 
semblers, die auch schon bisher sehr 
zur Vereinfachung beitrugen, wurden 
um Befehle zur Editor- und Ablauf¬ 
steuerung erweitert und gestatten nun 
auch die Verknüpfung von Menue- 
punkten des Assemblers. Durch diese 
stark erweiterten Makrofunktionen 
kann der übliche Arbeitsaufwand bei 
der Programmerstellung sicherlich um 
20% gesenkt werden. Ein übriges tut 
eine neue Option, die den Zehnertasta¬ 
turblock in Textsteuerungstasten um¬ 
wandelt. GFA-ASSEMBLER für den 
Atari und Amiga kosten je 149,- DM 
(unverbindl. Richtpreis). Darüber hin¬ 
aus versprechen wir, in der nächsten 
Ausgabe einen umfassenden Test zu 
bringen. 


Auch Dirk Van Assche und Lars van 
Straelen hatten ihre liebe Mühe auf der 
Messe, denn das neue GFA-BASIC 
3.5 mit den vielen Zusatzprogrammen 
zog die User wie ein Magnet an. Ein 
besonderer Leckerbissen ist wohl die 
neue GFA-BASIC Grafik- & Sound- 
Bibliothek, denn wer möchte seine 
Programme nicht mit einem an Holly¬ 
wood erinnernden Outfit versehen? In¬ 
terruptanimation, Überblendungen, 
Shapes in verschiedenen Größen, Di¬ 
gitaler Sound oder gar Vertikal- und 
Horizontalscrolling ohne Program¬ 
mieraufwand sprechen für sich und 
stellen doch nur einen kleinen Teil der 
Bibliothek dar. Die Grafik- & Sound- 
Bibliothek ST kostet mit einem 
249seitigen Handbuch 149,- DM (un¬ 
verbindl. Richtpreis). 

Für alle Arten des GEM-Handling 
unter GFA-BASIC ist unser GFA- 
GUP genau richtig. Menuehandling, 
Resourceaktionen und Fensterverwal¬ 
tung mit bis zu sieben Fenstern stellen 
jetzt auch für Einsteiger kein Problem 
mehr dar. GFA-GEM-Utility Package 
kostet mit Handbuch 149,- DM. 

Um GFA-B AS IC-Programme vom ST 
auf andere Computertypen wie MAC 
oder IBM zu übersetzen, war es 
bislang nötig, das Programm in einen 
anderen, meist weniger komfortablen 
Dialekt umzuschreiben. Mit unserem 
GFA-BASIC-Konverter nach C kön¬ 
nen die Basic-Programme nun in die 
C-Sprache umgewandelt werden und 
so auch auf anderen Rechnertypen 
laufen. Durch die Verwendung von 
GFA-BASIC bei der Programmerstel¬ 
lung verbinden Sie die kurzen Turn 
Around Zeiten (die Zeiten zum Testen 
und Fehlerbeheben) mit der benutzer- 
freundlichen Bedienungsoberfläche 
und einfachen Handhabung. Der 
GFA-BASIC-Konverter nach C ist für 
498,- DM (unverbindl. Richtpreis) zu 
haben und erzeugt einen sofort verar¬ 
beitungsfähigen Standard-C-Quell- 
text. 

Auf dem Atari hat die strukturierte 
Programmierung seit dem Erscheinen 
des GFA-BASIC immer mehr zuge- 
nom men. Für viele Program mierer tür¬ 
men sich bei der Strukturerstellung 
von Programmen jedoch große Pro¬ 
bleme auf, da sich das Zusammenspiel 
einzelner Strukturteile oder Routinen 
im Programmlauf sehr schwer erfas¬ 


sen läßt. Meist scheitern Softwarepro¬ 
jekte nicht an der Programmierer- 
fahrung oder Kenntnis, sondern an 
endlosen Fehlersuchen und Opti¬ 
mierungen. Durch GFA-STRUKTO, 
dem Struktur-Editor, der nebenbei 
auch als Texteditor Verwendung fin¬ 
det, können Sie nun einfach und 
schnell Programme beliebiger Art 
strukturieren und optimieren. Selbst 
die Fehlerbeseitigung - oftmals der 
größte Arbeitsaufwand - kann nun 
erheblich verkürzt werden, da auf 
einen Blick klar wird, wann wo was 
abläuft GFA-STRUKTO kostet mit 
umfangreichem Handbuch und drei 
Beispielprogrammen für Grafik, Mul¬ 
titasking und Simulation 249,- DM. 

Filmähnliche Animationen werden 
durch das GFA-ZOETROPE Anima¬ 
tions-System auf dem Amiga zu einem 
Kinderspiel. Bewegungspläne, Cel- 
Animationen, Zooms, Vergrößerun¬ 
gen und Verkleinerungen gestatten die 
Erstellung von professionellen Video- 
film-Einführungen oder aufwendigen 
Grafikdemos ohne große Program- 
mierkenntnis, da ZOETROPE alle 
notwendigen Funktionen auf Ihr 
Mauskommando hin aktiviert. GFA- 
ZOETROPE wird mit einem Grafik¬ 
programm, dem Animator, zwei 
Konvertern, vielen Beispielen und 
dem umfangreichen Handbuch für 
198,- DM ausgeliefert (unverbindl. 
Richtpreis). 

Das Erstellen von Statistiken war 
schon immer recht aufwendig. Ein¬ 
zelne Berechnungsarten und Ver¬ 
gleichsmöglichkeiten gestalteten sich 
meist so umfangreich, daß eine ein¬ 
wandfreie Statistik nur auf Groß¬ 
rechnern möglich wurde. Durch GFA- 
STATISTIK können nun auch auf dem 
ST Inferenzstaüstiken, Parametrische 
und Nichtparametrische Tests, des- 
kripüve Statistiken und komplexere 
Verfahren wie uni- und multivariate 
Tests durchgeführt werden. Selbst die 
Datenmanipulation von fehlerhaften 
Werten kann durch Vertauschen, Er¬ 
setzen und Einfügen leicht ab¬ 
geschlossen werden, so daß nach 
kurzer Zeit ausgewertete Statistiken 
mit Grafik zur Verfügung stehen. 
GFA-STATISTIK kostet in der Voll¬ 
version 998,- DM, in der Studenten¬ 
version 398,- DM (unverbindl. Richt¬ 
preis) und wurde von Mitarbeitern der 
Uni Düsseldorf entwickelt. 
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Sparringspartner für die 
oberste Etage 


Die Well ist hektischer geworden, die 
Anforderungen an den Einzelnen sind 
rapide angewachsen und die "mensch¬ 
liche" Hilfe ist in vielen Bereichen 
nicht mehr so gefragt wie früher. An 
vielen Orten hat der Computer Einzug 
gehalten, so auch in den Bereichen 
Ausbildung und Lernen. cVOKAV 
plus>, ein Trainingspartner beim Er¬ 
lernen von Fremdsprachen, verspricht 
"DAS intelligente Vokabelsystem für 
alle Atari ST" zu sein. Hm ja, ob mit 
intelligent der Atari ST, das Programm 
oder der Benutzer gemeint ist... ? 

Das Programm würde ich zwar be- 
sümmt nicht als intelligent, aber doch 
als recht gut und vor allem als an¬ 
wenderfreundlich bezeichnen. Bei 
Unklarheiten mit der Bedienung hilft 
ein kleines Handbuch im DIN A5 - 
Format über die ärgsten Hürden locker 
hinweg. Es ist klar, übersichtlich und 
ohne Firlefanz gegliedert und be¬ 
schreibt auch dem weniger Geübten, 
wie er mit dem Programm umgehen 
kann. Positiv sind dabei vor allem die 
einzelnen Anwendungsbeispiele mit 
Abbildungen der dazugehörigen 
Menuboxen. 

Für mich persönlich sollte ein Hand¬ 
buch auch nur vereinzelt zum Nachse¬ 
hen Verwendung finden, wobei der 
Frust meist im Quadrat mit der Seiten¬ 
zahl, bzw. mit vielem Blättern und 
Wälzen in "Kraut- und Rübenfeldem", 
wächst. Frust gab’s hier eigentlich 
überhaupt keinen, auch wenn man 
manche Abschnitte vielleicht überar¬ 
beiten könnte. 

So einleuchtend das Handbuch, so ein¬ 
fach ist eigentlich auch die Bedienung 
des Programms (ich hab’s auch gleich 
begriffen...). Eine Lemdatei, die man 
bei entsprechendem Umfang durchaus 
als Fremdwörterlexikon verwenden 
kann, besteht aus Wörtern / Begriffen 
einer fremden, und gegenübergestellt, 
der deutschen Sprache. Selbstver¬ 
ständlich könnten es auch zwei Fremd¬ 
sprachen sein, deren Begriffe sich 
paarweise gegenüberstehen. Norma¬ 
lerweise stehen pro Begriffspaar 2 x 
38 Zeichen zu Verfügung, was ausrei¬ 
chen dürfte. Im Moment verarbeitet 
das Programm laut Handbuch bis zu 
6000 Paare pro Vokabeldatei, wobei 
sich nur eine davon im Speicher befin¬ 


den kann. Vielleicht werden es ja in 
zukünftigen Updates noch mehr... 

In der Menüleiste des Programms fin¬ 
det man nach dem Info und den nicht 
aufrufbaren Acc’s den Punkt 
<DISK>. Hier lassen sich Vokabel¬ 
dateien einiesen bzw. neu anlegen, 
normal und als Textdatei zur 
Weiterverarbeitung in anderen Pro¬ 
grammen abspeichem. 

Auch die Bearbeitung von Blöcken ist 
zu finden, und außer dem Beenden des 
Programms noch einige Disketten- 
utilities. 

Unter <VOKABELN> geht’s jetzt in 
die Vollen. Unter 'Vokabeln einge¬ 
ben’ wird in einer übersichtlichen Box 
zuerst nach der fremden, dann nach der 
deutschen Vokabel gefragt. Hier kann 
auch ein Schwierigkeitsgrad gewählt 
werden. Wichtig dabei ist bei Mehr¬ 
fachbegriffen eine Trennung mit <; 
oder />, da es sonst Probleme beim S u- 
chen von Begriffen gibt 

Suchen kann man nach Vokabeln und 
per Jokerzeichen auch nach Teilen von 
ihnen. Eine Schwierigkeit tauchte 
dabei trotz obigem Hinweis auf. Ein 
Beispiel aus einer Lemdatei: Fremde 
Vokabel: to bear, bore, bom, deutsche 
Vokabel: ... Sucht man jetzt nach 
'bear', so findet das Programm nichts! 
(zumindest bei mir; vielleicht hängt 
das mit der Intelligenz zusammen...). 
Spaß beiseite; ein kleinerTrick hat mir 
weitergeholfen. Stellt man einen 
als Joker nach, dann funktioniert es 
prima. Vielleicht kann dieses kleine 
Manko noch ausgemerzt werden. 

Beinahe hätte ich’s vergessen. Suchen 
kann man selbstverständlich nach den 
verschiedensten Kriterien, wie z.B. 
Deutsch/Fremd, Block/Alle oder 
Groß/Klein, also mit oder ohne Unter¬ 
scheidung von Großbuchstaben. Bei 
Bedarf lassen sich die Suchbegriffe 
auch durch neue Begriffe ersetzen. 
Auch Sortieren kann man die 
Vokabeln auf verschiedene Arten. 

Ein weiterer umfangreicher Menu¬ 
punkt beschäftigt sich mit dem Aus¬ 
druck. Hierbei können nicht nur rech¬ 
ter und linker Rand, Druckqualität und 
Schrifttypen ausgewählt werden, 


sondern auch Kopf- und Fußzeilen und 
Menge. So ziemlich jeder Drucker 
dürfte optimal bedient werden, da 
VOKAV plus mit jedem Ist Word plus 
Treiber zusammenarbeitet, der nur in 
’printer.cfg’ umbenannt werden muß. 

Noch eine zentrale Aufgabe des Pro¬ 
gramms ist hier zu finden. Was wäre 
ein Vokabelprogramm ohne Lern¬ 
funktion? Richtig, natürlich nichts! 
Die Auswahlbox bietet schon einiges. 
Festlegen kann man die Anzahl, den 
Schwierigkeitsgrad, und ob bereits 
eine Bedeutung ausreicht, oder alle an¬ 
gegebenen Begriffe eingegeben wer¬ 
den müssen. Abgefragt wird auch, ob 
die Reihenfolge auf- oder absteigend 
oder zufällig, die Vorgabe in deutsch, 
fremd oder zufällig ist, ob neugelemt 
oder überlemt wird. Nicht vergessen 
darf man, daß das Programm auch ver¬ 
schiedene Kürzel kennt und natürlich 
am Schluß eine Übersicht über den 
Lernerfolg ausgibt. Der kann ganz 
frustrierend sein... Puh, das reicht aber 
jetzt wirklich damit... 

Unter <BLOCK> sind gängige Block¬ 
funktionen wie Löschen, Kopieren, 
Verschieben und Ändern aufrufbar. 
Hilfestellungen gibt’s auch hier durch 
prima Auswahlboxen. Als letzter 
Menupunkt wäre da noch <EX- 
TRAS>. Unter 'Information' wird 
freier Speicher etc. angezeigt. Außer¬ 
dem läßt sich hier der Druckertreiber 
installieren. Eine ordentliche Funk¬ 
tionstastenbelegung erlaubt Arbeitser- 
leichtemngen bei oft benötigten oder 
auch außergewöhnlichen Begriffen. 
Zuletzt lassen sich alle Einstellungen 
abspeichem und bei Bedarf neu ein¬ 
iesen. 

Zusammenfassend läßt sich sagen, daß 
VOKAV plus 2.0 ein angenehm zu be¬ 
dienendes, übersichtliches und prak¬ 
tisches Programm ist. All jenen, die in 
irgendeiner Form mit dem Vokabel - 
lemen konfrontiert sind, kann man 
dieses Programm wirklich empfehlen. 
Es dient bestimmt auch prima als 
Nachschlagewerk. Angesprochen sind 
hier nicht nur Privatpersonen, sondern 
vor allem auch die entsprechenden 
Schulen, die im Fremdsprachenunter¬ 
richt damit ohne Einarbeitungszeit für 
Schüler und Lehrer umgehen können. 
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Interessant ist in diesem Zusammen¬ 
hang bestimmt, daß ein auch als Ac- 
cessory lauffähiger Lexikonzusatz 
mitgeliefert wird. Ebenfalls auf Dis¬ 
kette befinden sich ein Konvertierpro¬ 
gramm für ältere Dateien und ein 
Programm zum Teilen bzw. Zusam¬ 
menfügen von Vokabeldateien. Be¬ 
trachtet man außerdem den wirklich 
günstigen Preis und die Tatsache, daß 
es für ca. 20,- DM je eine Vokabeldatei 
für französisch, spanisch, italienisch 
und englisch zu erwerben gibt, kann 
man bestimmt von einer 'runden 
Sache’ im Sinne der Anwender spre¬ 
chen. Nicht verschweigen möchte ich 
noch, daß das Programm ohne 
Schwierigkeiten auf meiner Festplatte 
läuft... 


Progr.-Name: 

Kopierschutz: 

Auflösungen: 

Handbuch: 

Preise: 


Copyright: 


(wh) 

Vokav plus 2.0 
nein 

monochrome 
DIN A5, deutsch, 
übersichtlich 
Programm: 59,- DM 
Vers. Campus: 39,- DM 
Wortschatz: je 19,- DM 
Amd von Wedemever 
Mettmanner Str. 12 
5603 Wülfrath 


112.640 Bytes zum Nulltarif 


Der Atari ST formatiert Disketten 
standardmäßig mit 80 Tracks zu je 9 
Sektoren. Da jeder Sektor 512 Bytes 
groß ist, macht das bei einer doppel¬ 
seitigen Diskette 737.280 Bytes 
(80x9x512x2). Nach Abzug etlicher 
Kilobytes für die Diskettenverwaltung 
bleiben 720 KB zur freien Verfügung. 

Bei der Formatierung geht das 
Betriebssystem recht verschwen¬ 
derisch mit dem Platz auf der Diskette 
um und kalkuliert eine üppige Sicher¬ 
heitsreserve ein. Tatsächlich ist es 
ohne Probleme möglich, auf jeder 
Spur einen 10. Sektor unterzubringen. 
Allein durch diese Maßnahme gewin¬ 
nen wir auf einer doppelseitigen Dis¬ 
kette zusätzliche 81.920 Bytes Spei¬ 
cherplatz. 

Es kommt noch besser Wir müssen 
uns keineswegs mit 80 Tracks be¬ 
gnügen; die meisten Laufwerke ver¬ 
tragen mehr, manche sogar 86. Als 
vernünftiger Kompromiß hat sich in 


eigenen Versuchen ein Wert von 83 er¬ 
wiesen. Das ergibt weitere 30.720 
Bytes. Macht zusammen 112.640 
Bytes, die keinen Pfennig Geld kosten. 

Mehr als 83 Tracks können proble¬ 
matisch werden. Die Grenzen Ihres 
eigenen Laufwerks müssen Sie durch 
Ausprobieren herausfinden. Aber 
Vorsicht: Sie sollten hierbei nicht nur 
die Laufwerksmechanik im Auge 
(bzw. im Ohr) behalten, sondern auch 
der Datensicherheit die nötige Auf¬ 
merksamkeit schenken. 85 Tracks z.B. 
nutzen wenig, wenn Sie ständig von 
Schreib-/Lesefehlem geplagt werden. 

Noch ein Hinweis: Mit FOR- 
MAT.PRG formatierte Disketten kön¬ 
nen Sie nicht mehr als Ganzes, sondern 
nur noch dateiweise kopieren, sofern 
Sie nicht eines der Copyprogramme 
verwenden. Das gilt für jede Diskette, 
die vom ST-Standardformat abweicht. 

Günter Schmitz 


FORMAT.PRG © 1989 by Günter Schmitz 
Bruchs tr. 167 
5024 Pulheim 
Tel. 02238/14877 

GFA-ASSEMBLER VI.3 

Files: FORMAT.IS 
FORMAT.PRG 

1:25.09.1989 

U: 

Formatiert Disketten mit 83 Tracks zu jeweils 10 
Sektoren. Dadurch erhöht sich die Kapazität 
einer doppelseitigen Diskette um 112.640 Bytes 
und die einer einseitigen Diskette um 56.320 Bytes. 

83 Tracks sind ein Kompromiß. Manche Laufwerke 
vertragen mehr. Um es auszuprobieren, muß man de 
entsprechenden Stellen im Listing ändern. 


gemdos 

= 1 


cconin 

= 1 

Zeicheneingabe mit Echo 

cconout 

= 2 

Zeichenausgabe 

crawcin 

- 7 

Zeicheneingabe ohne Echo 

cconws 

= 9 

String-Ausgabe 

xbios 

= 14 


flopfmt 

= 10 

Diskette formatieren 

flopwr 

= 9 

Sektoren schreiben 

protobt 

= 18 

Boot-Sektor erzeugen 


; Startmeldung und Eingabeaufforderung 

lea.l cls(pc),a0 ; Bildschirm löschen und 

bsr prtine ; Startmeldung ausgeben 

move.w #crawan,-(sp) ; auf Taste warten 
trap #gemdos 

addq.l #2,sp 


etngabe: 

ea.l 

wahl( pcj.aO 

; Angabe, ob 1- oder 


bsr 

prline 

, 2seit>ges Laufwerk 


move.w 

#cconin,-(sp) ; auf Eingabe warten 


trap 

»gemdos 



addq.l 

#2,sp 



subi.b 

#49. dO 

; 1 seifiges Laufwerk? 


beq.s 

format 



cmpi.b 

#1,d0 

: 2sert>ges Laufwerk? 


bne.s 

eingabe 

; wenn nein -> Wiederholung 

; Die gesamte Diskette wird mit $*5 formatiert 

format: 

move.w 

d0,d6 

; Seitenzahl retten 


move.w 

#82,d3 

, 83 Tracks (0 . 82) 

next: 

move.w 

d6,d4 


repeat: 

lea.l 

anzeige(pc),a0 ; Anzeige des gerade in 


bsr 

prline 

; Arbeit befindlichen Tracks 


move.l 

d3,d5 



divu.w 

#10,d5 

; Zehner-Stelle 


addi.w 

#48,d5 



move.w 

d5,-(sp) 



move.w 

»cconout,-(sp) 


trap 

#gemdos 



addq.l 

#4,sp 



swap.w 

d5 



addi.w 

#48,d5 

; Einer-Stelle 


move.w 

d5,-(sp) 



move.w 

#cconout,-(sp) 


trap 

»gemdos 



addq.l 

#4,sp 



move.w 

#$e5e5,-(sp) 

; Initialdaten 


move.l 

#$87654321,-(sp) ; Magic number 


move.w 

#Msp) 

; keine Sektoren überspringen 


move.w 

64,-(sp) 

; Seite 


move.w 

d3,-(sp) 

; Track 


move.w 

#10,-(sp) 

; 10 Sektoren pro Track 


clr.w 

-<sp) 

; Laufwerk A 


pea 

0 



pea 

puffer(pc) 

; Track-Puffer 


move.w 

»flopfmt,-(sp) 
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trap 

#xbios 


lea.l 

26(sp),sp 


dbra 

d4,repeat 

nächste Seite 

dbra 

d3,next 

nächster Track 

Die ersten beiden Tracks ausnullen 

move.w 

d6,d4 

Seitenzahl nach d4 

seite: moveq.l 

#1,d3 

Tracks 0 und 1 

null: dr.w 

-(sp) 


move.l 

#$87654321 ,-<sp) ; Magic number 

move.w 

#1,-(sp) 

keine Sektoren überspringen 

move.w 

d4,-<sp) 

Seite 

move.w 

d3,-<sp) 

Track 

move.w 

#10,-(sp) 

10 Sektoren pro Track 

dr.w 

-(sp) 

Laufwerk A 

pea 

0 


pea 

puffer(pc) 

Track-Puffer 

move.w 

#flopfmt,-(sp) 


trap 

#xbios 


lea.l 

26(sp),sp 


tst.w 

dO 


bmi.s 

fehler 

das ging schief 

dbra 

d3,null 

nächster Track 

dbra 

d4,Seite 

nächste Seite 

Boot-Sektor aufbauen 


dr.w 

-(sp) 

Boot-Sektor nicht ausführbar 

addq.w 

#2,d6 

d6 = 2 : Iseitiges Laufwerk 

move.w 

d6,-(sp) 

d6 = 3 : 2seitiges Laufwerk 

move.l 

#$1000CXX),-(sp) ; Seriennummer 

pea 

puffer(pc) 


move.w 

#protobt,-(sp) 


trap 

#xbios 


lea.l 

14(sp),sp 


move b 

#10,puffer+24 

; 10 Sektoren pro Track 

subq.w 

#1,d6 


move.l 

#830,dO 

83 Tracks * 10 Sektoren 

mulu.w 

d6,d0 

* Seitenzahl = Gesamtzahl 

divu.w 

#256,dO 

wird im Intelformat abge¬ 

move.b 

d0,puffer+20 

legt 

swap.w 

dO 


move.b 

d0,puffer+19 


; Bootsektor schreiben 


move.w 

#Msp) 

ein Sektor 

pea 

0 

Seite 0, Track 0 

move.w 

»1 .-(«P) 

Sektor 1 

dr.w 

-(sp) 

Laufwerk A 

pea 

0 


pea 

puffer(pc) 


move.w 

#flopwr,-(sp) 


trap 

#xbios 


lea.l 

20(sp),sp 


bra.s 

exit 


; Fehlermeldung 

fehler: lea.l 

err_msg,aO 


bsr 

prline 


move.w 

#erawcin,-(sp) 


trap 

#gemdos 


addq.l 

#2,sp 


: Programmende 

exit: dr.w 

(sp) 


trap 

#gemdos 



; Text ausgeben 

prline: move.l aO,-(sp) 

move.w #cconws,-(sp) 
trap #gemdos 

addq.l #6,sp 

rts 

; Meldungstexte 

DATA 

ds: .DC.b 27,"E","Liegt die richtige Diskette in 

Laufwerk A ?“, 13,10 

DC.b "Dann bitte irgendeine Taste drücken.",13,10,0 
wähl: DC.b 27,"Y",5+32,32 

DC.b 27,"p 1",27,"q- oder ",27,"p 2",27, 

"qseitige Diskette? ",0 
anzeige: DC.b 27,"Y",7+32,32,"Track .. ",0 

err msg: DC.b 13,10,13,10,7,"Fehler ist aufgetreten." 

DC b "Bitte Taste drücken.",0 

EVEN 

BSS 

puffer: ,DS.b8192 


Redeker + Munzert 
GMBH 

Farbbänder - Toner - 
Kopierer 

Hastener Str. 136 
5630 Remscheid 1 
Tel.: 02191/8768 
Fax: 02191/84469 

Wir liefern: 

Farbbänder und Farbband¬ 
kassetten 

Toner und Laser-Toner nam¬ 
hafter in- und ausländischer 
Hersteller 

Tischkopierer und EDV- 
Zubehör 
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GFA-BASIC und 
GFA-ASSEMBLER 


Immer wieder werde ich über die 
Helpline gefragt, wann denn der Ein¬ 
satz von GFA-BASIC oder GFA-AS¬ 
SEMBLER sinnvoll ist Obwohl zu 
diesem Thema ein empfehlenswertes 
Buch von GFA erschienen ist, möchte 
ich an dieser Stelle einmal für alle die 
Grundkriterien einer solchen Ent¬ 
scheidung darlegen. 

Da das GFA-BASIC 3.5 in seiner der¬ 
zeitigen Version für fast alle Anwen¬ 
dungen geeignet ist, bietet es sich ge¬ 
radezu an, neue Ideen oder Vorhaben 
schnell in die Tat umzusetzen. 
Durch die Compiler/Interpreter- 
Paarung können so lauffähige und voll 
funktionstüchtige Programme erstellt 
werden, die in Punkto Geschwindig¬ 
keit nicht versteckt werden müssen. 
Tatsächlich ist der größte Vorteil des 
Basic die Option, Programme und 
Routinen sofort ohne Assemblier- und 
Linkzeit auszutesten, um so eventuell 
vorhandene Fehler auszumerzen. 
Auch ist die Basic-Sprache im Gegen¬ 
satz zur Maschinen-Spraehe leicht zu 
erlernen und schnell anzuwenden. 

Ein Manko der von Compilern 
hergestellten Programme ist deren 
Länge. Kein Compilat kann so kom¬ 
pakt und schnell sein wie ein komplett 
oder auch nur teilweise in Assembler 
geschriebenes Programm. Dies liegt 
jedoch im Wirkungsprinzip und gilt 
ebenfalls für die übrigen Compiler¬ 
sprachen wie ’C’, 'PASCAL’ oder gar 
'MODULA2'. 

Nie kann ein Compiler so flexibel auf 
die individuellen Bedürfnisse des 
Autors eingehen wie der Program¬ 
mierer, da nur er genau abschätzen 
kann, welche Anforderungen an eine 
Programm-Routine gestellt werden. 
Bei einer einfachen Rechnung inner¬ 
halb eines Assemblerprogramms wird 
zum Beispiel nur für diese Rechnung 
eine Routine geschrieben, die dann 
auch nicht zu anderen Berechnungen 
passen muß. Beim Compiler und Inter¬ 
preter hingegen sind diese Routinen 
für den Anwender flexibel gehalten 
und somit etwas langsamer und um¬ 
fangreicher. 

Durch den INLINE-Befehl des GFA- 
BASIC 3.x Entwicklungssystems in 
Verbindung mit dem GFA-ASSEM- 
BLER 1.5 kann dieser Nachteil jedoch 


gut behoben werden. So lassen sich 
relativ einfach schnelle und kompakte 
Programme erstellen, ohne auf die 
Vorzüge des GFA-BASIC 3.5 ver¬ 
zichten zu müssen. Hierdurch ist es 
auch möglich, ein Programm komplett 
in Basic zu verfassen, um dann Schritt 
für Schritt zeitkritische und speicher¬ 
fressende Routinen durch spezielle 
und entsprechend schnelle Assembler¬ 
routinen zu ersetzen. Das beste 
Beispiel hierfür ist die im Buch 'GFA- 
BASIC Version 3' beschriebene 
Printroutinc, die durch gezielten Ein¬ 
satz der Einbindungsmöglichkeiten im 
GFA-BASIC den Printbefehl um den 
Faktor von 2.4 beschleunigt. 

Assembler haben den Nachteil, daß die 
Programmerstcllung sehr mühsam ist. 
Selbst Grundfunktionen, wie die un¬ 
formatierte Textausgabe, müssen erst 
geplant und entwickelt werden, 
wodurch der Sourcetext zum einen 
sehr lang und zum anderen zeitauf¬ 
wendig sein kann. Der CLS-Befehl in 
Basic ergibt ohne Betriebssystemauf¬ 
rufe in Assembler schon 10 bis 20 
Zeilen reinen Sourcetext. 

Bei dem GFA-ASSEMBLER wird 
jedoch ein Großteü dieses Mankos 
durch die Verwendung von Makros 
sowie den Befehlskürzeln wieder wett 
gemacht. Nebenbei haben die Pro¬ 
grammierer auch noch die Möglich¬ 
keit der Tastaturprogrammierung 
gegeben, womit das Erstellen von Pro¬ 
grammen ebenfalls stark vereinfacht 
wird. 

Nicht zu verleugnen ist auch, daß alle 
Assembler ein gewisses Maß an Sy¬ 
stemkenntnis voraussetzen und die 
Assemblersprache nicht einfach zu er¬ 
lernen ist. Aus diesem Grund haben 
wir in dieser Ausgabe einen Assem¬ 
bler-Kurs gestartet, der auf dem GFA- 
BASIC aufbaut und Ihnen die 
Grundkenntnisse des Assemblers zu¬ 
gängig machen soll. 

Fast unverzichtbar ist der Assembler 
bei Direktzugriffen auf die Hardware. 
So ist es kaum vorstellbar, die Pro¬ 
grammierung des FDC, des Tastatur¬ 
chips oder gar des Videochips unter 
Basic zu erledigen. Hierbei stehen ein¬ 
deutig die Geschwindigkeit und die 
Kürze der Unterprogramme im 
Vordergrund. Nebenbei bemerkt, es 


wäre wünschenswert, wenn Atari 
beim TOS ebenfalls einen Assembler 
verwendet hätte, denn dank C ist das 
(X)BIOS für den Grafikchip etwas zu 
langsam geraten. 

Basic würde ich bei Resourcen den 
klaren Vortritl lassen, denn im Um¬ 
gang mit AES und VDI zeigt GFA- 
BASIC 3.x seine wahre Stärke. Funk¬ 
tionen ä la CARD und WORD oder 
Objektvariablen wie OB SPEC ma¬ 
chen den Umgang mit Resourcen zu 
einem echten Vergnügen. Nicht 
zuletzt wirkt sich hier auch die kon¬ 
sequente Anwendung von Pointern 
und vordefinierten Betriebssystem¬ 
funktionen wie RSRC_LOAD stark 
vereinfachend aus, zumal hier selbst 
mit dem GFA-ASSEMBLER kein 
nennenswerter Geschwindigkeits- 
Oder Speichergewinn zu verzeichnen 
ist und so beruhigt auf GFA-BASIC 
gesetzt werden kann. 

Ein echtes Problem für Assemblerein¬ 
steiger sind die mathematischen Funk¬ 
tionen wie Sinus, Cosinus oder Wur¬ 
zelberechnungen. Diese recht 
aufwendig zu programmierenden 
Funktionen sind ebenfalls in Basic gut 
aufgehoben, sofern eine Tabcllenlö- 
sung innerhalb des Programmes nicht 
möglich ist. 

Hingegen ist bei Programmteilen für 
großangelegte Speichermanipulatio¬ 
nen wie BITBLK oder das Umwan¬ 
deln von Bildern einer Auflösung in 
die andere immer der Assembler vor¬ 
zuziehen. Die hierdurch erzielte 
Geschwindigkeit läßt Routinen, die 
unter BASIC an die 2 min. verbrau¬ 
chen würden, in unter 10 sec. ablaufen. 
Nach Murphy kommen solche Routi¬ 
nen ja leider recht oft vor, so daß sich 
der Assembler dann recht erholsam 
auswirkt. 

Durch den RCALL-Befehl im GFA- 
BASIC 3.x können nunmehr sogar 
ganze Daten und Adressaten in die 
Register D0-D7 und A0-A6 geladen 
werden, womit auch die diversen 
Tricksereien bei der Parameterüber¬ 
gabe hinfällig wurden. 

Durchaus denkbar ist es auch, Such-, 
Save- und Laderoutinen innerhalb 
einer Adressverwaltung oder Daten¬ 
bank komplett in Assembler zu verfas- 
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sen und aus dem Basic heraus nur die 
zugehörigen Pointcrzu übergeben. Die 
Adressliste V 1.0 des GFA- CLUBS 
hatte ich komplett in GFA-BASIC 3.x 
Beschrieben, wobei die Adressdatei 
mit fast 140 Kbytes dank RECALL 
fast drei Minuten zum Laden 
benötigte. In der Version 2.0 hatte ich 
schon die Lade- und Speicherroutine 
durch den Assembler ersetzt, wodurch 
das Laden nunmehr nur noch 21 sec. 
dauerte. 

Wegen der Speicherkapazität - das 
BASIC-Programm hatte 28 Kbytes - 
habe ich nun die neue Version kom¬ 
plett in Assembler geschrieben und das 


Programm hierdurch bei größerem 
Funktionsumfang auf knapp acht 
Kbytes verkürzt. 

Natürlich stellt diese Aufzählung nur 
einen kleinen Ausschnitt der mögli¬ 
chen Anwendungen dar, eine kom¬ 
plette Aufstellung würde auch den hier 
gesetzten Rahmen sprengen, so daß ich 
nur noch mal auf die angesprochenen 
Bücher hinweisen möchte. Letztlich 
wird jeder User selbst merken, wann 
eine Routine besser in Assembler oder 
Basic verfaßt wird. Als kleinen Anreiz 
haben wir ab dieser Ausgabe einen As¬ 
semblerkurs für Einsteiger, der es 
Ihnen leichter machen soll, Ihre 


eigenen Vorstellungen zu verwirkli¬ 
chen. 

Literaturliste: 

GFA-BASIC ST Version 3.0 
ISBN 3-89317-004-9 
inkl. Diskette DM 59,- 


GFA Anwendertouch 
ISBN 3-89317-001-1 
inkl Diskette DM 59,- 


Programmieren in 
Maschinensprache 
SYBEX Verlag 
ISBN 3-88745-512-6 
DM 48,- 


PC-SPEED 

Erfahrungen und Tips zum 
Hard ware-PC/XT-Emulator 


Oder ... Emulator, Emulator im ST - 
bist auch so schnell wie ein XT? 

Als Informatiklehrer an einer Gesamt¬ 
schule bin ich (leider?) in meinem Un¬ 
terricht gezwungen, auf die vom 
Schulträger angeschafften ATARI- 
PCs zurückzugreifen. Vorbereitungen 
waren eigentlich anfangs nur in 
Freistunden möglich, da zu Hause ja 
ein ST seinen Dienst versah. Pro¬ 
grammübertragungen waren dadurch 
ausgeschlossen. 

Nachdem dann endlich ein funktions¬ 
fähiges Emulationsprogramm in Form 
von PC-DITTO vorlag, konnte ich 
doch leicht aufatmen. Trotz der ziem¬ 
lich langsamen Arbeitsgeschwindig¬ 
keit (mit PC-TOOLS gemessene Ar¬ 
beitsgeschwindigkeit betrug 30% der 
normalen PC-Geschwindigkeit) war 
gewährleistet, daß ich Schulprogram¬ 
me auch zu Hause laufen lassen 
konnte. 

Seit Sommer ’89 liegt nun der lang 
ersehnte Hardware-Emulator PC- 
SPEED vor. Die vom Vertrieb (HEI M- 
Verlag in Heidelberg) angekündigten 
Eigenschaften ließen mich gleich auf¬ 
horchen. Nach einem letzte Fragen 
klärenden Gespräch mit dem Verlag 
bestellte ich dann den PC-SPEED. 

Die Lieferung bestand aus einer nicht 
allzu großen Platine und einem kleinen 
15-seitigen Anlcitungsheftchen. Die 


notwendige Software befand sich auf 
einer beigefügten Diskette. Trotz der 
warnenden Hinweise auf Seite 1 der 
Anleitung bezüglich der Garantie (war 
eh schon abgelaufen) und des viel¬ 
leicht nicht so ganz einfachen Einbaus 
(... wer hat Angst vor dem schwarzen 
Chip??) begann ich gleich, meinen ST 
auseinanderzunehmen. 

Zunächst deckte ich alle in der Nähe 
der CPU liegenden Teile sorgfältig mit 
isolierendem Klebeband ab. Auch die 
Tastatur wurde von unten mit Isolier¬ 
band abgeklebt. Die Platine des PC- 
SPEED liegt zum Teil verdammt nah 
an einigen Bauteilen der ST-Platine 
bzw. den Drahtbrücken auf der Rück¬ 
seite der Tastatur. 

Die heißeste (im wahrsten Sinne des 
Wortes) Phase des Unternehmens 
stand mir dann gleich bevor: das Ein¬ 
löten des mitgelieferten CPU-Sockels. 
Mit einem 30 Watt-Lötkolben klappte 
dies aber ganz vorzüglich. Wichtig 
dabei war, daß ich nicht zu lange, mit 
einigen Sekunden Pause dazwischen, 
die vielen Beinchen des Sockels auf 
den 68000er auflötete. Hierbei möchte 
ich jedem Nachahmer empfehlen, die 
Lötstellen und die Steckkontakte des 
Sockels anschließend mit einem Mul¬ 
timeter (mit Durchgangsprüfer) zu 
testen. 

Als nächstes schnitt ich dann mit einer 
Blechschere ein entsprechend großes 


Viereck aus der Blechabschirmung 
heraus, da bei meinem 1040er die CPU 
direkt ganz vorne liegt und der PC- 
SPEED anders nicht genügend Platz 
hat. Dann konnte ich die Platine des 
Emulatorsauf den aufgelöteten Sockel 
aufdrücken. Keine Angst, so schnell 
geht da nichts kaputt! Wichtig ist, daß 
alle Kontakte gute und feste Verbin¬ 
dung mit dem Sockel haben. So tief 
wie möglich eindrücken, damit 
nachher die Tastatur nicht hochge¬ 
drückt wird! 

Zum Testen habe ich die Einzelteile 
nur lose eingebaut (aber mit Ge¬ 
häusedeckel, wegen 220 Volt Netz¬ 
spannung!). Das auf der Diskette 
mitgelieferte Startprogramm 

PC_SPEED.PRG wurde dann auf 
seine "BUS”-Reise geschickt. Doch 
leicht nervös habe ich dem Klackern 
des ST-Laufwerks gelauscht und fand 
mich nach einigen Sekunden in der 
MS-DOS-Welt wieder, wo man mich 
aufforderte, eine Systemdiskette ein¬ 
zulegen. 

Nach insgesamt etwa 2-stündiger Ar¬ 
beit war es dann soweit: eine MS- 
DOS-Systemmeldung und das unver¬ 
meidliche Promptzeichen " A> 
blinkten mich an. Gleich wurden 
einige MS-DOS-Programme auspro¬ 
biert, unter anderem PC-TOOLS. Ich 
wollte doch wissen, ist "er” wirklich so 
schnell wie ein XT? Sage und schreibe 
250% Arbeitsgeschwindigkeit mel- 
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dete mir das Programm. Damit läßt es 
sich arbeiten. 

Gespannt war ich auf den Einsatz der 
Maus. Nach Starten des Maustreibers 
war ich aber doch leicht enttäuscht 
Ein mausunterstütztes Programm ließ 
sich nicht bedienen. Zwar konnte ich 
alle Funktionen des Programms über 
die Tastatur aufrufen, jedoch ein 
Mauscursor ließ sich nicht blicken. 
Dieses Problem ist inzwischen be¬ 
hobenworden, und die Original- 
ATARI-Maus kann in der vorliegen¬ 
den Version 1.30 benutzt werden. 
Notwendig ist jedoch ein, bei vielen 
MS-DOS-Programmen mitgelieferter, 
MICROSOFT-kompatibler 
Maustreiber. 

Alle meine getesteten Programme 
(TURBO-BASIC, QUICK-BASIC, 
GW-BASIC, WORDSTAR, div. PD- 
Programme und Schulprogramme 
[Textverarbeitung, Matheprogramme 
etc.]) liefen zu meiner vollsten Zu¬ 
friedenheit. 

Einzig mit der Wiedergabe von Sound 
bin ich nicht ganz zufrieden. Leider ist 
dieser Punkt noch nicht hundert¬ 
prozentig korrekt gelöst Bei Spielen 
vor allem (BATTLE CHESS, FLUG¬ 
SIMULATOR etc.) wird nur ein unde¬ 
finierbares Pfeifen und Piepsen über¬ 
tragen mit dem Haken, daß das ganze 
Programm oft zum Teil entsetzlich 
lange unterbrochen wird. Ich empfehle 
den Sound abzustellen, da die langen 
Wartezeiten doch mehr als störend 
sind. Ich denke, daß Hansjörg Sack 
dies aber auch noch in den Griff 
bekommt. 

Fazit: Nimmt man einen momentanen 
Verkaufspreis für einen 1040er ST mit 
eingebautem PC-SPEED von ca. 1700 
DM, so erhält man eine kaum schlag¬ 
bare Kombination von TOS und MS- 
DOS, um die uns so mancher "nur" 
MS-DOS-Benutzer beneiden kann. 
Die schon erwähnte sehr hohe Arbeits¬ 
geschwindigkeit der relativ problem¬ 
lose Einbau, der günstige Preis 
(...haben Sie noch 2000 bis 3000 DM 
für einen XT übrig?) und die einwand¬ 
freie Funktion lassen eigentlich keine 
Alternative zu. 

Wenn Sie noch Fragen zu PC-SPEED 
haben, können Sie sich gerne an mich 
wenden oder Herrn Till vom HEIM- 
Verlag anrufen (06151/57783). Als 
sehr hilfreich möchte ich Ihnen das 
gerade neu erschienene Buch "PC- 
SPEED" aus dem HEIM-Verlag ans 
Herz legen, da es viele sehr gute Tips 


bereithält, die die Arbeit und das In¬ 
stallieren von PC-SPEED erleichtern. 

Im Anschluß finden Sie noch ein 
kleines Programm, das Ihre ST-Dis- 
ketten auch MS-DOS-lesefähig 
macht. Da im Prinzip das ST-Format 
und das DOS-Format gleich sind, las¬ 


sen sich die ST-formatierten Disketten 
mit diesem kleinen Patch auch unter 
PC-SPEED verwenden (natürlich lau¬ 
fen danach keine ST-Programme unter 
MS-DOS, aber alle ASClI-Texte las¬ 
sen sich z.B. prima weitcrbcarbeitcn!). 

Hans-JUrgen Merkel 




' Konvertierprogramm 

• um ST-formatierte Disketten für MS-DOS lesbar zu machen 

' Idee: Johannes Heyer (ST-Computer Nr. 2/90) 

' Umsetzung in GFA-BASIC (V. 3.06): Hans-Juergen Merkel 
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GOSUB konvertieren 
END 


PROCEDURE konvertieren 
CLS 

inv_on$=CHR$(27)+"p" 
inv_off$=CHR$(27)+'q' 
meklur>g$=STRING$(4,’")+"Bootsektor ist 
MS-DOS-lesefähig !"+STRING$(4,‘ 

') 


17: puffer$=SPAC E$(512) 

18: puffer_adresse%=V:puffer$ 

19: t!=FALSE 
20: REPEAT 

21: PRINT AT(19,9);"Von welchem Laufwerk soll der Bootsektor' 

22: PRINT AT(19,10);‘ MS-DOS-lesefähig gemacht werden T 

23: PRINT AT(27,12);"Laufwerk “;inv_on$,' A ';inv_off$;' oder 

■;inv_on$;'B ';inv_off$;' V 
24: PRINT AT(19,15);'Abbruch = >ESC<" 

25: PRINT AT(19,17);Taste 'A 1 oder 'B' = Starr 

26: taste[=INP(2) 

27: IF taste|<>27 

28: IF taste|=65 

29: drive|=0 

30: ELSE 

31: drive|=1 

32: ENDIF 

33: r%=BIOS(4,2 > L:puffer_adresse%, 1,0,drive|) 

34: old_word$=HEX$(LPEEK(puffer_adresse%)) 

35: new_word$='E9'+MID$(old_word$,3) 

36: IFrtfc 

37: ALERT 3,"Lesefehler !|“,1 ,'Abbruch',dummy| 

38: ELSE 

39: {puffer_adresse%}=VALf&H’+new_word$) 

40: r%=BIOS(4,3,L:puffer_adresse%, 1,0,drive|) 

41: IF r% 

42: ALERT 3,'Schreibfehler !|',1,'Abbruch',dummy| 

43: ENDIF 

44: t!=TRUE 

45: FOR i|=1 TO 5 

46: PRINT AT(19,20);inv_on$;STRING$(40,' ’);inv_off$ 

47: PAUSE 15 

48: PRINT AT(19,20);inv_on$;meldung$;inv_off$ 

49: PAUSE 15 

50: NEXT i| 

51: PAUSE 50 

52: ENDIF 

53: ENDIF 

54: UNTIL t!=TRUE 
55: RETURN 
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GFA-BASIC 3.5 

Teil II 


Im Artikel ’GFA-BASIC 3.5’ der 
Club-Zeitschrift Nr. 2 ’90 wurde auch 
über nicht vorhandene völlige Fehler- 
freihcit gesprochen. Dieser erste Ar¬ 
tikel ist ein praktisches Beispiel hier¬ 
für, denn die ’Textmaschine’ bei GFA 
war nicht fähig, die Zeichen ’<’ und 
’>’ aas meinem Text automatisch zu 
übernehmen. 

Natürlich ist eine quadratische Matrix 
dann regulär, wenn die Determinante 
'ungleich’ Null ist; im Text wurde 
’<>’ geschlabbert. Sony! 

Damit sind wir gleich beim Thema 
'DETERMINANTEN’. Spezialisten 
möchten auch diesmal bitte 
nachsichtig reagieren. Im Bronstein, 
Taschenbuch der Mathematik’, steht 
zur Determinante: 

"Jeder n-reihigen quadratischen 
Matrix mit reellen bzw. komplexen 
Elementen läßt sich auf eindeutige 
Weise eine reelle bzw. komplexe Zahl 
zuordnen, die man als Determinante 
der Matrix bezeichnet." 

Wie berechnet man nun die Determi¬ 
nante? Bei einer zweireihigen Matrix 
ist es mit 'Produkt der Hauptdiago¬ 
nalen minus Produkt der Nebendiago¬ 
nalen’ idiotisch einfach. Die Hauptdi¬ 
agonale geht von links oben nach 
rechts unten, die Nebendiagonalc von 
rechts oben nach links unten. 

Beispiel: 

12 1V 1 mal 4 minus 2 mal 3 = -2 
3 4 I A a(l,l)*a(2,2)-a(l,2)*a(2,l) 

Auch eine dreireihige Matrix kann 
nach der sogenannten Sarrusschen 
Regel noch relativ einfach errechnet 
werden. Zur optischen Verdeutlichung 
schreibt man die Spalten 1 und 2 rechts 
neben die Matrix. Dann werden die 
Summen der Produkte der Hautdiago¬ 
nalelemente und der Elemente parallel 
zur Hauptdiagonalen gebildet und 
davon die Summen der Produkte der 
Ncbendiagonalcn ... subtrahiert. Man 
nennt dieses Verfahren auch ’Lattcn- 
zaun-Regel, weil die Diagonalen wie 
ein Lattenzaun überder Matrix liegen. 

Am besten verdeutlicht das Lisling 
’determin.lst’ - siehe unten - das hier 
Beschriebene, und durch das Experi¬ 
ment wird bekanntlich am besten ge¬ 
lernt. 


Noch einmal zum obigen Beispiel: 
Das Vertauschen der Spalten ver¬ 
ändert nur das Vorzeichen, nicht den 
Wert der Determinante selbst. 

Die Determinante von quadratischen 
Matrizen mit mehr als drei Reihen 
könnten prinzipiell nach dem Schema 
ermittelt werden. Das wird aber dann 
sehr aufwendig. Hier geht man in der 
Regel nach dem Laplace’schcn Ent¬ 
wicklungssatz vor. Er besagt, daß man 
eine n-reihige Determinante auf (n-1) 
reihige Determinanten zurückführt, 
bis man 3- bzw. 2reihigc Determinan¬ 
ten erhält. Bei diesem Verfahren wird 
aus einer frei gewählten Spalte oder 
Zeile heraus entwickelt. Es ist dabei 


gleichgültig, welche Spalte oder Zeile 
gewählt wird. Zwar sind die Zwi¬ 
schenergebnisse naturgemäß unter¬ 
schiedlich, das Endergebnis - die De¬ 
terminante - ist immer gleich. 

Da es sich hier um eine Einführung für 
Ein- und Aufsteiger handelt und die 
Erläuterungen einen weiteren, eigenen 
Artikel erfordern würden, verweise ich 
auf Lehrbücher und sonstiges Lehr¬ 
material. Wer z.B. einen Mathe¬ 
matiker oder Informatiker in seinem 
Bekanntenkreis hat, der kann sich das 
ja mal erklären lassen, viel Spaß. Ich 
bedanke mich hier recht herzlich bei 
Michael Kauke für seine Geduld. 


he determin.gfa khs 5k40 für gfa club-nachrichten mai/juni 90 \d 

n9 

OPTION BASE 1 
MAT BASE 1 
weiter: 

ERASE a(),b(),c() 

txt$=" welche Matrix-Gröe? " 

ALERT 0,txt$,0.' 2x2 | 3x3 ',dum| 

IF dum|=1 
x=2 
ELSE 
x=3 
ENDIF 

DIM a(x,x),b(x,x),c(x,x) 

txt$='variable oder feste Vorgabe ? ' 

ALERT 0,txt$,1,'variabel|DATA's',dum| 

IF dum|=2 ! fest aus datas 

IF x=2 

RESTORE zwei 
ELSE 

RESTORE drei 
ENDIF 

MAT READ a() 

ELSE 

FOR i=1 TO x 
FOR j=1 TOx 

a(i,j)=FtAND(x+6) ! einiesen mit 

NEXTj ! zufallszahl 

NEXTi 
ENDIF 

PRINT' MATRIX a(';x;',';x;')' 

MAT PRINT a(),4.0 
MAT DET d=a() 

IF d=0 

PRINT STRING$(45,—) 

PRINT ' DET a d. Koeffiz = ';d;', also keine INVERSE';CHR$(7) 
PRINT 

ALERT 0,",1 ,"weiter|ende",dum 
IF dum=1 
CLS 

GOTO weiter 
ENDIF 
EDIT 
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ENDIF 
IF x=3 

@lattenzaun 

ENDIF 

PRINT 

PRINT ' INVERSE von a() mit MAT INV b()=a()' 
MAT INV b()=a() 

MAT PRINT b(),8,4 
PRINT 

PRINT ’ prüfen auf EINHEITSMATRIX¬ 
PRINT " durch a() * INV von a()" 

MAT MUL c()=a()*b() 

MAT PRINT c<),5,2 

PRINT AT(2,16);STRING$(62,"_") 

IF x=2 

@dethandzwei 
ENDIF 
IF x=3 

@dethanddrei 

ENDIF 

ALERT 0,--,1,"neu|ende',dum 
IF dum=1 
CLS 

GOTO weiter 
ENDIF 
EDIT 


PROCEDURE dethandzwei 


dp=a(1,1)*a(2,2) 

dm=a(1,2)*a(2,1) 

PRINT AT(2,18);-a(1,1 )*a(2,2) - a(1,2)*a(2,1 )’ 

PRINT AT(5,19);a(1,1);' * -;a(2,2);" 

- ";a(1,2);■ * *;a(2,1) 

PRINT AT(1,21);- Determinante a(";x;",';x;") GfA 3.5 = ",d 
PRINT AT(1,22);" Determinante a(";x;Y;x;") manuell 

=",dp-dm 


RETURN 


PROCEDURE dethanddrei 
dp=a(1,1)*a(2,2)'a(3,3)+a(1,2)'a(2,3)*a(3,1)+a(1,3) 

*a(2,1)*a(3,2) 

dm=a(1,3)*a(2,2)*a(3,1)+a(1,1)*a(2,3)*a(3,2)+a(1,2) 

*a(2,1)*a(3,3) 

PRINT AT(2,18);’a(1,1)*a(2,2)*a(3,3)+a(1,2)*a{2,3) 
•a(3,1)+a|l,3)*a(2 I 1) , a(3,2)’ 

PRINT AT(2,19);- = + -„dp 

PRINT AT(2,20);’a(1,3)*a(2,2)*a(3,1)+a(1,1)*a(2,3)*a(3,2) 

+a(1,2)*a(2,1)*a(3,3)' 

PRINT AT(2,21);’ = -'„dm 

PRINT AT(2,23);-Determin. a(-pt;-,";x;-) GfA 3.5 = ’,d 
PRINT AT(2,24);"Determin. a(";x;"T;x;") manuell = ",dp-dm 
RETURN 

PROCEDURE lattenzaun I noch print using** 

usl$=T+--#r 

us2$="-#r 

PRINT AT(16,1);*| Hilfsspalten 1 u.2 für'Lattenzaun'" 
PRINT AT(16,2);USING us 1 $,a( 1,1) 

PRINT AT(21,2);USING us2$,a(1,2) 

PRINT AT( 16,3);USING us 1 $,a(2,1) 

PRINT AT(21,3);USING us2$,a(2,2) 

PRINT AT(16,4);USING us 1 $,a(3,1) 

PRINT AT(21,4);USING us2$,a(3,2) 

RETURN 


Zur Abwechslung einmal ein Beispiel zu den neuen Befehlen 
aus der Kombinatorik, hier COMBIN. 

Wer genau wissen will, wie gering die Chancen beim Otto 
vom Lotto sind, kann das mit Hilfe von Fakultäten errechnen. 
Zum Beispiel für 6 richtige Zahlen aus 49 mit: 

Fakultät von 49/Fakultät von (49-6)*Fakultät von 6. 

Das nachfolgende Listing ’Lotto.lst’ zeigt den Programmab¬ 
lauf ohne spezielle Befehle. Auch wenn die Funktion Fakul¬ 
tät vorhanden ist, bleibt noch ein gewisser Eingabeaufwand. 

Mit der Funktion COMBIN(nJc) sind in einer Zeile nur noch 
n und k (= n über k) einzugeben. So bleibt Zeit zum Denken. 
Wer den Spaß und den Kitzel des Glücksspieles haben will, 
für den reicht eine Zeile auf dem Lottoschein w ie im Pro¬ 
gramm, den Rest kann er in andere Dinge - z.B. gute Software 
- investieren. 

Natürlich ist die Frage nach den Lotto-Chancen nicht die ein¬ 
zige und vor allem nicht die wichtigste aus dem Gebiet der 
Kombinatorik. 


.he lotto.lst khs 5k40 für gfa club-nachrlchten mal Juni 90 \d 
n9 

PRINT " aus der Kombinatorik" 

PRINT " z.B. Lotto 6 aus 49 wird berechnet durch " 

PRINT !- 

PRINT " GFA 3.5 in einer Zeile durch ==> COMBIN(49,6) 

=-,COMBIN(49,6) 

PRINT !- 

PRINT" manuell durch folgende Formel / und Programm :" 

nl =49 

n2=6 

fakultaet(nl) 

erg=x 

fakultaet(n1-n2) 

erg=erg/x 

fakultaet(n2) 

erg=erg/x 

PRINT " Fakultät von 49/Fakultät von 49-6*Fakultät von 6 = ",erg 
~INP(2) 

EDIT 

PROCEDURE fakultaet(n) 
x=1 

FOR i=1 TOn 
x=x*i 
NEXTi 
RETURN 


zwei: 

' DATA 0,1,0,2 
DATA 1,2,3,4 
drei: 

' DATA 1,2,3,4,5,67,8,9 
DATA-2,-5,1,1,3,-6,3,21,-15 
'DATA 5,4,0,0,5,5,2,0,1 
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Nun für heute zum dritten und letzten 
Abschnitt des Artikels. Das Beispiel 
habe ich aus einem alten HP-Hand- 
buch. Dort stand eine Funktion 
MAT(Ergebn.Vcrktor)=CROSS (Op- 
Vekt.l,Op-Vekt.2). Damit wurde das 
Kreuz- oder Vektor-Produkt zweier 


Vektoren mit jeweils drei Elementen 
berechnet. 

Beim Testen von GFA 3.5 reizte mich, 
wie das Problem ohne diese Funktion 
zu lösen ist. Das Ergebnis finden Sie 
im dritten und letzten heutigen Listing 


kreuzprodukt.lst am Ende des Ar¬ 
tikels. 

Zum abgebildeten Beispiel: 

Ein schrägstehender Baum wird durch 
ein Stahlseil mit der Ecke des Hauses 
(siehe Bild) verbunden. 

Die Fragestellung lautet: 

Wie stark ist das Kraftmoment, das auf 
das Verbindungskabel über dem Fuß 
des Baumes ausgeübt wird, wenn die 
Spannung im Draht 960 kg beträgt? 

Lösung: 

Das Kraftmoment wird beschrieben 
durch das Kreuzprodukt 
M = R x F 

R ist der Richtungsvektor des Hal¬ 
tepunktes (am Baum) relativ zum Fuß, 
F sind die 960 kg Kraft, die auf das 
Verbindungskabel ausgeübt werden. 

R, S und F werden durch ihre Kom¬ 
ponenten in x-, y- und z-Richtung be¬ 
schrieben. S ist dabei der Vektor vom 
Haltepunkt des Baumes zum Hal¬ 
tepunkt am Haus. Die Komponenten 
von R: 

Rx=5, Ry=14, Rz=2 

Die Komponenten und Längen von F 
u. S sind proportional: 

Fx/Sx = Fy/Sy = FVSz = F/S 

Daher kann jede Komponente von F 
als Produkt der entsprechenden Kom¬ 
ponente von S mit dem Quotienten der 
Längen von F und S berechnet werden. 

Für die Komponenten von S erhält 
man: 

Sx= -9 -5=-14 Sy= 10-14=-4 Sz=-4-2=-6 

(siehe Bild und Datas im Listing) 

Zugegeben, nicht jeder hat einen 
schrägstehenden Baum, der darüber 
hinaus noch mit der eigenen Hütte ver¬ 
bunden ist. Aber cs gibt im täglichen 
Leben so viele sich gegenseitig beein¬ 
flussende Kräfte, die von uns ebenfalls 
auszuhaltcn sind. Für heute reicht’s 
mir, alles Gute! 

Karl-Heinz Schulze 


y 



.he xprodukt.lst khs 5k40 für gfa-club ausg. mai/juni 90 \d 

n9 

DIM r(3,1),f(3,1),s(3,1 ),m(3,1).1(1,1) 

DATA 5,14.2,-14,4,-6 
MAT READ r() 

MAT READ s() 

PRINT ' R(3,1) Ist Richtungsvektor des Haltepunkts a rel z Fu d, HP a" 

MAT PRINT r(),4,0 
PRINT STRING$(62,-") 

PRINT " S(3,1) ist der Vektor vom Haltepunkt a zum Haltepunkt b" 

MAT PRINT s().4,0 
PRINT STRING$(62.-.-) 

PRINT ' L( 1,1) ist Ergebnis der Berechnung der Länge von S + 960Kg/L" 

1(1.1 )=960/SQR(s( 1,1 ) A 2+s(2,1 ) A 2+s(3,1 ) A 2) 

MAT PRINT l(),14,9 
PRINT STRING$(62.") 

PRINT " Berechnung der Komponenten von F(3,1) ==> MAT MUL f()=s()*l()" 
MAT MUL f()=s()*l() 

MAT PRINT f(),10.4 
PRINT STRING$(62,-.-) 

PRINT " Kraftmoment ermittelt durch Kreuzprodukt M = R X F“ 

PRINT ” (HP MAT Ergebnisvektor = CROSS (Operandenvekt. 1 .OPV2))" 
m(1, 1 )=r(2, 1 )*f(3, 1 )-r(3, 1 )*f(2,1) 
m(2,1 )=r(3,1 )*f( 1,1 )-r( 1 , 1 )*f(3, 1 ) 
m(3,1 )=r( 1,1 )*f(2, 1 )-r(2, 1 )*f( 1 , 1) 

MAT PRINT m(),10,2 

PRINT AT( 12,21);” x-Komponente ==> Mx = Ry'Fz - Rz*Fy' 

PRINT AT(12,22)y-Komponente ==> My = Rz'Fx - Rx*Fz" 

PRINT AT(12,23);” z-Komponente ==> Mz = Rx'Fy - Ry'Fx“ 

~INP(2) 

EDIT 
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Neueste Versionen Service 


Name 

Version/Datum 

ST-Produkte 

GFA-BASIC 

Entwicklungssystem 2.0 (Interpreter und Compiler) 

2.02 

27.12.87 

Entwicklungssystem 3.5 (Interpreter und Compiler) 

3.5 

14.02.90 

Interpreter 3.0 

3.07 

15.06.89 

Compiler 3.0 

3.03 

02.10.89 

GFA-ASSEMBLER 

1.5 

01.05.90 

GFA-DRAFT (an Mega ST angepaßt) 

2.1 

30.09.87 

GFA-DRAFT-plus ST 

3.01 

31.03.89 

GFA-DRAFT-plus ST 

3.1 

01.03.90 

GFA-RAYTRACE 

2.1 

01.01.90 

ChemGraf 

1.4 

03.11.89 

GFA-ARHST 

1.0 

19.11.87 

STARTER 

2.0 

01.07.88 

Floppyspeeder 

1.0 

01.06.88 

Farbkonverter 

1.2 

25.07.88 

Monochromkonverter 

1.2 

25.07.88 

Multi-Acoessory 

1.0 

01.06.88 

PC-Produkte 



GFA-DRAFT-plus 

3.03 

15.01.90 

GFA-FAKT 2.0 

2.01 

24.06.89 

GFA-FAKT-plus 

1.6 

02.10.89 

GFA-DESK 

1.6 

05.11.88 

GFA-DESK-plus 

1.3 

17.07.89 

GFA-CAD 

4.5 

27.11.89 

AMIGA-Produkte 



GFA-BASIC Interpreter 3.0 

3.05 

04.09.89 

GFA-BASIC Compiler 3.0 

3.01 

01.12.89 

GFA-BASIC Interpreter 3.5 

3.5 

01.02.90 

GFA-BASIC Compiler 3.5 

3.5 

01.02.90 

GFA-ASSEMBLER 

1.5 

01.03.90 


Sie müssen registrierter Kunde für das 
"upzudatende" Produkt sein. Das Update 
erfolgt nach: 


Zusendung eines frankierten, an 
Sie selbst adressierten, wattierten 
DIN C5 Rückumschlages 
Zusendung von DM 10.- (nur 
Geldschein) 


Um sicher zu gehen, daß wir das richtige 
Produkt auf dem entsprechenden Dis¬ 
kettenformat updaten, nennen Sie uns 
bitte: 


den Produktnamen 

die Seriennummer / Version 

das verwendete System 

das gewünschte Diskettenformat 

(5 1/4” oder 3 1/2") 


Nur wenn die oben genannten Bedingun¬ 
gen erfüllt sind, erhalten Sie von uns eine 
Update-Diskette mit der gewünschten 
Programmversion. Das Nutzungsrecht 
für diese Programmversion gilt nur in 
Verbindung mit der Originaldiskette. 


Achten Sie bitte darauf, daß Sie nicht Ihre 
Originaldiskette einsenden! 


Supportzeiten bei der GFA 

GFA-BASIC Atari ST 

Dienstag: 15.00 bis 17.00 Uhr 

GFA-BASIC Amiga 

Dienstag: 15.00 bis 17.00 Uhr 

GFA-DRAFT-plus PC/ST 

Montag: 15.00 bis 17.00 Uhr 

und GFA-CAD 

Donnerstag: 15.00 bis 17.00 Uhr 

GFA-ASSEMBLER, GFA-BASIC ST 

Mo, Mi, Fr: 9.00 bis 13.00 Uhr 

Di und Do: 13.30 bis 17.00 Uhr 

GFA-FAKT-plus 

Montag: 10.00 bis 11.30 Uhr 

GFA-DESK-plus, GFA-FAKT 2.0 

Freitag: 10.00 bis 11.30 Uhr 
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Upgrades 



Programm Preis 

Upgrade 

Preis Bemerkung 

GFA-BASIC Interpreter ST V 2.0 169,- DM 

Entwicklungssystem 3.0 

70,- DM 

1+6 

GFA-BASIC Interpreter ST V 2.0 99,-DM 

Entwicklungssystem 3.0 

140,- DM 

1+6 

GFA-BASIC Interpreter V 1.0 

Entwicklungssystem 3.0 

90,- DM 

1 

GFA-Einstcigcr-Set 

Entwicklungssystem 3.0 

140,- DM 

4 

Entwicklungssystem ST V 2.0 

Entwicklungssystem 3.0 

160,- DM 

1 

Entwicklungssystem ST V 2.0 

Entwicklungssystem 3.5 

230,- DM 

1 

Entwicklungssystem ST V 3.0 

Entwicklungssystem 3.5 

70,- DM 

2 

GFA-BASIC Interpreter ST V 2.0 169,- DM 

Entwicklungssystem 3.5 

140,- DM 

1+6 

GFA-BASIC Interpreter ST V 2.0 99,-DM 

Entwicklungssystem 3.5 

210,- DM 

1 + 6 

GFA-BASIC Interpreter V 1.0 

Entwicklungssystem 3.5 

160,- DM 

1 

GFA-Einsteiger-Sct 

Entwicklungssystem 3.5 

210,- DM 

4 

GFA-DRAFT ST 298,- DM 

GFA-DRAFT plus V3.0 




(Modula-2-Version) 

120,- DM 

3 

GFA-DRAFT ST 198,-DM 

GFA-DRAFT-plus ST V 2.0 

220,- DM 

3 

GFA-DRAFT-plus ST 

GFA-DRAFT-plus ST V 3.1 

50,- DM 

2 

GFA-DRAFT-plus PC V 3.01 279,- DM 

GFA-DRAFT-plus PC (Er. V.) 

99,- DM 

3 

GFA-DRAFT-plus PC V 3.01 279,- DM 

GFA-CAD V 4.5 

499,- DM 

1 

GFA-DRAFT-plus PC Erw. Ver. 398,- DM 

GFA-CAD V 4.5 

400,- DM 

1 

GFA-FAKT V l.X 

GFA-FAKT V 2.0 

25,- DM 

3 

GFA-FAKT V l.X 

GFA-FAKT-plus 

425,- DM 

3 

GFA-FAKT V 2.0 

GFA-FAKT-plus 

400,- DM 

3 

GFA-DESK V 1.5 

GFA-DESK plus V 1.2 

70,- DM 

2 

GEM (GFA-DRAFT-plus PC) V 2.2 

GEM 3.1 

149,- DM 

5 

GFA-BASIC Interpreter Amiga V 3.0 

Interpreter 3.5 

30,- DM 

2 

GFA-BASIC Compiler Amiga V 3.0 

Compiler 3.5 

40,- DM 

2 

Bemerkung: (Folgendes bitte einschicken) 




1: komplettes Paket (Handbuch, Ringordner u. 

Orig.-Diskette) 

4: nichts 


2: Originaldiskette 


5: nur Masterdiskette 


3: Handbuchseiten + Originaldiskctte 


6: Kopie des Kaufbelegs 



Messetermine bis Juli ’90 


2.- 9.5.1990 Hannover HANNOVER MESSE Industrie 

29.-31.5.1990 Sindelfingen IDENT/VISION 

Intern. Fachmesse für industrielle Bildverarbeitung und 
künstliche Intelligenz 


29.5.-1.6.1990 


Stuttgart 


CAT 

Computerunterstützte Technologien - Intern. Fachausstellung 
und Anwendungskongreß 
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Die Public Domain Box 


Wie versprochen, hier ist wieder die 
Vorstellung der neuen PDs. Im Laufe 
des letzten Monats sind bei mir wieder 
ein paar Disketten für unsere PD-Box 
eingetroffen, die ich heute vorstellen 
möchte. 

Anwendungen 

Für all diejenigen, die sich über unsere 
Desktop-Druckroutine ärgern, haben 
wir nun einen kleinen Leckerbissen 
anzubieten. Dank Uwe Ritterstädt hat 
die fast unnachahmliche Verstüm¬ 
melung unserer Texte durch die Dcsk- 
top-Printrouline nunmehr endlich ein 
Ende. Neben der angenehmen Druck¬ 
geschwindigkeit erkennt sein Pro¬ 
gramm die Schriftattribute von Ist 
Word plus sowie die Sonderzeichen 
und Umlaute. Auch haben Sie jetzt 
endlich die Möglichkeit, NQL oder 
Draft sowie die Fontarten Elite, Draft 
oder Italic über den Computer zu 
wählen, wobei auch der Grundschrift¬ 
typ nicht vergessen wurde. Da der 
Autor uns neben dem Programm auch 
den GFA-BASIC 3.x Sourcetext 
geschickt hat, kann das Programm 
auch leicht um weitere Textarten wie 
Signum2 oder WordPerfect erweitert 
werden. Print ist zusammen mit einem 
Balkengrafikprogramm und allen 
Quelltexten auf der PD #145 er¬ 
hältlich und benötigt den SM 124. 

Fun 

Stonewatch mit Willy kennt wohl 
jeder Atarianer. Nun haben wir aber 
eine wesentlich schnellere Version 
dieses Oldies auf Lager. Das Spiel, das 
auf dem Monochrome-Monitor läuft, 
beinhaltet auch einen guten Editor, mit 
dem eigene Levels erstellt oder alte 
verändert werden können. Da die 
Levels alle etwas knifflig sind, werden 
wohl die meisten User erst mal 
frustriert zum Editor greifen und 
einige der bösen Fallen entfernen (ich 
gestehe, auch ich habe geschummelt!). 
Unser Spiel des Monats hat die Num¬ 
mer #146 und wird nur auf eigene Ge¬ 
fahr abgegeben! 

Utilities 

Natürlich waren auch unsere Freunde 
aus Holland wieder aktiv. " 11 nuttige 
Programmas” (Orginaltext Holland, 
11 nützliche Programme) wie Ma¬ 
donna, Catalog, Desked4, Diskview, 
Matrix, Postbank, Prim oder 


WDWFunkt machen ab heute den 
Umgang mit den Disketten und dem 
Desktop easy. Holland sei für unsere 
Diskette #143 gedankt. Mal sehen, 
was beim nächsten Mal von Euch 
kommt. 

Grafik-Demo 

Auch der Club aus Belgien (schöne 
Grüße) war diesen Monat nicht un¬ 
tätig. Von ihnen stammt das Tristar- 
Demo, das von 90! (in Worten NEUN¬ 
ZIG) Zeichenfunktionen nur drei 
gesperrt hat. Trislar gehört meiner 
Meinung nach zu den besten Zeichen¬ 
programmen und lohnt sich auch als 
Demo. Im Vertrauen, Trisiar-Demo 
hat die Nummer #149. Aber nicht 
weitersagen! 

Grafik/RSC 

Da wir schon mal bei den Zeichenpro¬ 
grammen sind, LOW ist unser neues 
PD-Zeichenprogramm und bietet viele 
tolle Funktionen und Möglichkeiten 
zum Erstellen von guten Grafiken. Da 
man von Grafiken alleine nicht satt 
wird, haben wir auf dieser Diskette 
auch ein Programm zum Herstellen 
von RSC-kompatiblen Icons beige¬ 
legt. TOOLBOX beinhaltet alles (und 
vieles mehr), um leicht Icons und Def- 
blocks zu erstellen. Toolbox glänzt, 
wie auch LOW, mit einer gut durch¬ 
dachten Benutzeroberfläche und schö¬ 
ner Bedienbarkeit. Beide Programme 
warten auf Diskette #139 auf Euch! 

Geld/Musik 

Ein sehr leidiges Thema bei uns Com¬ 
puterfreaks ist das Geld. Da hat der 
Laserprinter ein Riesenloch in die 
Kasse gebrannt, wo doch gerade eben 
die Megafile 44 vom letzten Monat 
verkraftet war. So etwas wäre mit un¬ 
serer Diskette #141 nicht passiert. 
Zwar kann die Diskette keine 
Tausender drucken (leider), aber mit 
dem Haushaltsprogramm auf der Dis¬ 
kette haben wir die nöüge Übersicht 
über unser Geld. Hiermit können wir 
die Einnahmen den Ausgaben (oh 
Schreck!) gegenüberstellen und sehen, 
wo wir uns ausnahmsweise mal brem¬ 
sen müssen. Falls Sie dann trotzdem 
zuviel Geld ausgegeben haben, kön¬ 
nen Sie mit SYNTHY einen Trauer¬ 
marsch komponieren und abspielcn. 
Für ungeübte Komponisten haben wir 
ein paar kleine Songs beigelegt, die 


auch nach einem Finanzkoller zur ge¬ 
hobenen Stimmung beitragen könn¬ 
ten. 


Textsysteme 

Für Textakrobaten habe ich auch mal 
wieder was zu bieten! Dank eines 
TOS-Texteditors sowie eines komplett 
in GEM eingebundenen Texteditors, 
beide sowohl für Farbe als auch für 
Schwarz/Weiß geeignet, können sich 
unsere Mitglieder nicht mehr mit 
'mangelnden' Tcxtsystemcn für das 
Fehlen von Artikeln entschuldigen. 
Auf geht’s Leute, ran an's Keybord! 
Mit diesen Programmen könnt Ihr end¬ 
lich Artikel am Fließband produ¬ 
zieren, denn in der nächsten Ausgabe 
ist noch Platz.! Unsere Textsystemdisk 
hat die Nummer # 150! 

Assembler-Paket 

Ein kleiner Leckerbissen für Assem¬ 
bler-Neulinge! Der Devpac-Assem- 
bler in seiner 1. Version als PD. Ist 
doch schon was, oder? Zwar kann man 
diesen Assembler nicht mit dem GFA- 
ASSEMBLER vergleichen, denn hier 
hinkt sowohl die Geschwindigkeit als 
auch die Bedienungsfreundlichkeit 
stark hinterher, aber für ein oder zwei 
Versuche genügt’s allemal. Wie Ihr 
den GFA-ASSEMBLER bestellen 
könnt, wißt Ihr ja, oder? Unser Assem- 
blerpaket wartet auf der Diskette #152 
auf Euch! 

Assemblerkurs 

Wie versprochen, ist hier die Diskette 
zu unserem Assemblerkurs mit den 
Listings und Erklärungen zu dem 
Kurs. Nebenbei sind die Betriebssy¬ 
stemfunktionen auch schon vorde¬ 
finiert, so daß Ihr gleich loslegen 
könnt, wenn Ihr die Diskette # 153 be¬ 
stellt! (Der GFA-ASSEMBLER wäre 
hierzu auch empfehlenwcrt, denn die 
Lisüngs sind mit dem GFA-ASSEM¬ 
BLER geschrieben worden!) 

So, das wäre es für heute mal wieder. 
Ich hoffe, es war wieder etwas für 
Euch dabei. Und falls Ihr mal einen 
Gesamtüberblick über unsere PD-Box 
haben wollt, die neue PD-L.iste ist 
noch warm und wartet auf Euch. Toll 
wäre cs natürlich, wenn bei dieser An¬ 
forderung gleich eine neue PD bei¬ 
liegen würde. Mein Dank sei Euch 
schon heute gewiß. 


(rk) 


GFA-CLUB-Nachrlchten Nr. 3 - 90 


17 


Flohmarkt-Anzeigen 


Biete 


Atari 1040 STF, TOS 1.0 in ROM, 
incl. Maus, Omikron-Basic, Hand¬ 
bücher, technisch und optisch ein¬ 
wandfrei, 5 Jahre alt, OHNE Monitor: 
nur 500,- DM. 

Atari SH 205, 20 MB Festplatte, tech¬ 
nisch und optisch einwandfrei, wurde 
vordem Ausschaltcn immer geparkt, 2 
Jahre alt: nur 700,- DM. 

Dr. T. Rubach, Kurfürstenstr. 36,8034 
Germering, Tel.: 089 / 846030. 

Biete an: Kombinierte Entwickler- 
Shell für alle GFA-BASIC-Systeme 
und GFA-ASSEMBLER für nur 20,- 
DM. Viele Utilities, mehr Info gegen 
Rückumschlag. D. Redanz, Kirchstr. 
91,4353 Oer-Erkenschwick. 

Verkaufe für Atari ST: Minigolf 20,- 
DM, Great Courts 45,- DM, Protos 
50,- DM, Diskettenverwaltung Disk- 


dat ST 20,- DM, Schallplattenvcrwal- 
tung (LP, CD, MC) ISt-Sound 20,- 
DM, alles Originale! Tel.: 08341 / 
800223 oder 08349/625. 

Amiga Originalspiele Powerdrome 
und Katakis je 30,- DM, Deluxe Music 
Construction Set mit Midi und De¬ 
modisk 90,- DM, Textomat und Data- 
mat zusammen 79,- DM. Mehrere 
Bücher zum Amiga, je halber Origi¬ 
nalpreis. Amigas Harddisk 20 MB 85,- 
DM. Jede Menge PD-Disketten, z.B. 
Fred-Fish, Kickstart, RPD, Franz, 
Cactus, Taifun usw., über 1500 Stück, 
je Disk nur 2,40 DM. Einige Leer¬ 
disketten: 10 Stück für 14,- DM. Hel¬ 
mut Dalege, Basilikastr. 15, 4178 
Kevelaer 1,Tel.: 02832/7425 nach 17 
Uhr. 

Verkaufe: GFA-BASIC ST 3.0 EWS 
(NP 198,- DM) für 140,- DM; Atari 
520 STM mit Floppy SF 354 VB 490,- 
DM; Atari SM 124 VB 280,- DM; 
GFA-BASIC-Buch 3.0 (incl. Disk), 
Heim-Verlag VB 25,- DM. Hans 
Hundhammer, 8215 Marquartstein, 
Tel.: 08641 / 621777. 


TRIUMPH-ADLER alphatronic PC 
150,- DM, ECD-Bus Adapter (aus c’t 
10/87) 60,- DM. Tel.: 05604 / 5374 ab 
18 Uhr. 

Verkaufe: SKYBLASER 20,- DM, 
ST-WARS 20,- DM, JUMP JET 20,- 
DM, AFTER BURNER 25,- DM, 
ELITE 30,- DM, FALCON F16 40,- 
DM, ZAK MAC KRACKEN 35,- 
DM. Alles Originale mit Anleitung 
usw. Rufe an: 06424 / 4504, K.-H. 
Wallon, Leidcnhofcnerstr. 25, 3557 
Ebsdorfergr. 6 


Suche 


Suche INDIANDER JONES usw. als 
Abenteuerspiel und MANIAC MAN- 
SON, beides als Original mit allem 
Drum und Dran. Ruft an: 06424/4504. 


Für GFA-Club-Mitglieder kostenlos: Ihre persönliche Kleinanzeige für den Flohmarkt 

Bitte veröffentlichen Sie in der nächstmöglichen Ausgabe der GFA-CLUB-Nachrichten unten folgenden Text (auch als 
ASCII-File auf Diskette möglich)! Für jegliche Anzeigen übernehmen wir keine speziellen Formatierungsarbeiten. 


Biete an 


Strasse 


PLZ/Ort 


Datum/Unterschrift 


Suche: | 


Kontakte: ^ 


Verschiedenes: £ 


Maximal 15 Zeilen, je Zeile 30 Zeichen (inkl. Zwischenraum) bei normaler Schriftgröße. 
Bei Fettdruck und grafischen Zeichen sind Abweichungen möglich. 


wamw 

m flm 


Nicht-Club-Mitglieder: 
Club-Mitglieder: 


1.- DM / Zeile 5.- DM / Zeile / gewerbliche Anzeigen 
3.- DM / Zeile / gewerbliche Anzeigen 

_DM liegt bei als V-Scheck: Q bar: [ 


Club-Mitglied: 
Nicht-Club-Mitglied: 
gewerbliche Anzeige: 


Der Anzeigenpreis in Höhe von 
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Take off, ATARI! 


Hier ist nun der erste Teil unseres As¬ 
semblerkurses für Einsteiger. In dieser 
Folge wollen wir uns mit den elemen¬ 
taren Seiten der Maschinensprache 
auseinandersetzen und ein GFA- 
BASIC-Programm von Hand über¬ 
setzen. Als Handwerkszeug haben wir 
uns für den GFA-ASSEMBLER ent¬ 
schieden, da dieser neben der einfa¬ 
chen Bedienbarkeit auch noch mit dem 
GFA-BASIC 3.x harmoniert. Oben¬ 
drein kann mit ihm das fertige Pro¬ 
gramm sofort getestet werden, ohne 
daß der Assembler erst verlassen wer¬ 
den muß. 

Was ist eigentlich Assembler? Assem¬ 
bler oder Maschinensprache ist die un¬ 
terste Ebene des Programmierens und 
stellt eine Sprache dar, die der Com¬ 
puter direkt ohne Compiler oder Inter¬ 
preter (Dolmetscher) versteht und 
ausführen kann. Im Gegensatz zu 
Hochsprachen besitzt die Maschinen¬ 
sprache nur eine Handvoll Befehle, so 
daß auch einfache Dinge wie "PRINT" 
durch eigene Unterprogramme oder 
Systemrouünen erstellt werden müs¬ 
sen. Aber halt, ich greife ja mal wieder 
voraus, denn erst sollten wir uns mal 
mit dem für uns wichtigsten Teil des 
Prozessors, den Registern (siehe Ab¬ 
bildung), beschäftigen. 

Da ohne die Register bei unserem 
ATARI gar nichts läuft, wollen wir 
hier mal etwas ausführlicher werden. 
Als erstes wäre hier der Programm¬ 
zähler (PC, engl, program counter) zu 
nennen. Er beinhaltet immer die 
Adresse des nächsten Befehls und um¬ 
faßt 32 Bytes, wobei jedoch nur 24 
Bytes zum Tragen kommen. Ein paar 
Befehle sprechen den PC direkt an, 
wobei wir als Programmierer jedoch 
nur selten mit Adressberechnungen 
über den PC zu tun haben werden. 

Ein Register, ohne dessen Manipula¬ 
tion wir kein vernünftiges Programm 
zum Laufen bringen würden, ist hin¬ 
gegen das Statusregister (SR). Dieses 
in den System- und Userteil unterteilte 
Register beinhaltet wichtige Zustände 
sowohl des Systems als auch unseres 
Programmes. So kann hier abgefragt 
werden, ob eine Operaüon mit einem 
Nullergebnis endet oder gar negativ ist 
und in welchem Modus sich das Pro¬ 
gramm gerade befindet 

Ein äußerst wichtiges Register ist der 
Strackpointer (A7 oder SP). Da der 
MC68000 zwei verschiedene Arbeits¬ 


modi kennt, exisüeren von diesem 
Register auch zwei Ausgaben, wobei 
wir uns in diesem frühen Stadium nur 
mit dem sogenannten Userstrack¬ 
pointer beschäftigen wollen. Der 
Strackpointer, dt Stapelzeiger, stellt 
einen reservierten Speicherbereich 
dar, in dem Parameter und Unterpro¬ 
grammadressen sowie Rücksprung¬ 
adressen für spätere Aktionen zurück¬ 
gelegt werden. Dieser Strack ist im 
Gegensatz zu so manchem 8-Bit Com¬ 
puter ein LIFO-Strack (LIFO= Last In, 
First Out), bei dem die Daten wie auf 
dem Schreibtisch einfach oben drauf 
gepackt werden. Will man jetzt an 
Daten darunter kommen, muß von 
oben weg gearbeitet werden. Noch 
etwas erinnert beim Strack an den 
Schreibtisch: Wie auf unseren 
Schreibtischen müssen wir auch hier 
selbst für Ordnung sorgen; wenn wir 
dies unterlassen oder einfach verges¬ 
sen, droht uns der ATARI mit einem 
saftigen Absturz (ähnlich wie mein 
Schreibtisch, wenn ich nicht gleich 
aufräume)! 

Neben diesen Registern besitzt der 
68000’er noch 15 'freie’ Register, die 
wir für Daten und Adressen verwen¬ 
den können. Diese werden D0-D7 für 


Datenregister und A0-A6 für Adress¬ 
register genannt, doch dazu später 
mehr. 

Manche werden jetzt wegen der Masse 
an Registern stöhnen, diese 'Menge' 
ermöglicht jedoch eine sehr hohe 
Geschwindigkeit bei Daten und 
Adressregistermanipulationen oder 
Speicherverschiebungen. Doch grau 


ist alle Theorie, fangen wir mal mit 
dem Einstieg an: 

Wie schon erwähnt, wollen wir zum 
langsamen und gemütlichen Einstieg 
in die Welt des Prozessors ein GFA- 
BASIC 3.5 Programm von Hand in die 
Assembler-Sprache übersetzen. Zum 
einfacheren Verständnis sollten Sie 
sich das untenstehende Programm ein¬ 
mal anschauen und eventuell auch 
ausprobieren. 

FOR V%~0 TO 399 1 Vertikale Auflösung 

FÖR I l°wO TO 639 1 Horizontale Auflösung 
PLOT H%,V*>. I Setze Bildpunkt 
NEXT H% i NEXT Honzontal 

NEXT V% ! NEXT Vertikal 

Diese Basic-Routinc zum 'Schwär¬ 
zen' des Bildschirms benötigt genau 3 
min und 8 sec zur Ausführung und ist 
in der Praxis eigentlich nicht zu ver¬ 
wenden. Da sie jedoch einfach zu 
verstehen ist und einen guten Einstieg 
bietet, haben wir uns für sie ent¬ 
schieden. Nebenbei treten hier die 
Geschwindigkeitsunierschiede auch 
besonders zutage. Doch zurück zum 
Assembler. 

Nach dem Start vom GFA-ASSEM- 
BLER werden Sic nach dem Filena¬ 
men gefragt, der auf .IS enden sollte. 


Der Einfachheit halber wollen wir 
unser Assembler! isling hier mal 
BLACK.IS nennen und dann <RE- 
TURN> drücken. Falls Sie sich das 
Abtippen ersparen wollen, unsere PD- 
Box beinhaltet nun auch den Asscm- 
blcrkurs mit allen Files und Erklärun¬ 
gen. Nach dem Start befinden wir uns 
im Editor des Assemblers und könnten 
rein theoretisch schon loslegen. Zuvor 
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jedoch etwas zum Aufbau einer ty¬ 
pischen Befehlszeile im Assembler. 
Eine solche Zeile sicht so aus: 

START' move w #2, (SP) ; Funklionsnummer 
Physbase (XBIOS 2) 

START stellt ein LABEL dar, das vom 
Assembler hinterher durch eine 
Adresse ersetzt wird. Labels müssen 
im GFA-ASSEMBLER immer mit 
einem Doppelpunkt enden und in der 
ersten Spalte stehen. Allgemein gilt 
auch, daß die Labels acht Stellen lang 
sein dürfen und fast alle Begriffe er¬ 
laubt sind. 

Direkt hinter dem Label, in der 
zweiten Spalte, steht das Befehlswort 
mit der Verarbeitungsbreite, in un¬ 
serem Fall ’move.w’ also 'Bewege mit 
Wortlänge’, gefolgt von der Daten¬ 
quelle und dem Datenziel Zum bes¬ 
seren Verständnis von Programmen 
können in der letzten Spalte auch noch 
Kommentare eingefügt werden, die 
jedoch durch ein Semikolon ab¬ 
getrennt sein müssen. Doch jetzt 
wieder zum Programm. 

Unser Basic-Programm setzt in der 
hohen Auflösung jeden Punkt des 
Bildschirms auf Schwarz. Um dies mit 
einem Assemblerprogramm zu errei¬ 
chen, müssen wir zuerst die Adresse 
des Bildschirms feststellen und si¬ 
chern. Da unser Betriebssystem (BS) 
recht gut aufgebaut ist und wir das Rad 
im Moment noch nicht neu erfinden 
wollen, fragen w'ir es nach dieser 
Bildschirm-Adresse. Um dem BS, das 
aus GEMDOS, BIOS, XBIOS, AES 
und VDI besteht, zu sagen, was wir 
denn wollen, haben sich die Entwick¬ 
ler auf einen Zahlencode geeinigt, bei 
dem jede Zahl eine Funktionsnummer 
des BS darstellt. Zu diesen Funktions- 
nummem möchten wir Ihnen das 
GFA-Buch TOS&GEM oder das 
ATARI ST Profibuch von Sybex 
empfehlen, da hier alle Funktionen 
aufgeführt sind. 

In unserem Fall benötigen wir die 
Funktionsnummer 2 vom XBIOS (Ex- 
tendet BIOS), denn diese übergibt uns 
die Adresse des Bildschirms. Auch die 
Übergabe unserer Parameter an das BS 
ist genormt, denn es muß unsere 
Eingabe ja auch verarbeiten können. 
Hier an dieser Stelle kommt dann der 
Strack und unser erster Befehl zum 
Einsatz: 

move.w #2,-(sp) ; XBIOS Funktion 2 

Wir bewegen über den Move-Befehl 
die Zahl 2 direkt auf den vorher 
verringerten Strack. Das .w hinter 
move zeigt uns die Verarbeitungs¬ 
breite des Befehls an, der hier mit 
Word-Längc (16 Bit) arbeitet. Genau¬ 
sogut kann move auch 8 Bit (.b) oder 


32 Bit (.1) bewegen. In unserem Fall 
benötigen wir jedoch nur 16 Bit. 

Das Doppelkreuz vor der Zahl 2 zeigt 
an, daß diese Zahl direkt übergeben 
wird. Fehlt dieses Kreuz, würde die 
Zahl 2 als Adresse erkannt werden und 
zu einem Adressfehler mit vier Bömb- 
chen führen. 

Nun zum SP, der hier vor der Opera¬ 
tion um die Wortlänge verringert wird. 
Dies resultiert aus der Tatsache, daß 
der Strack beim ATARI zur kleineren 
Adresse hin wächst. Mit dem vor 
der Klammer zeigen wir an, daß das 
Adressregister, das in der Klammer 
steht, vorher verringert werden muß. 
Die Klammer hingegen deutet dem 
Prozessor, daß er keine neue Adresse 
an die Stelle des Registers setzen soll, 
sondern erst bei SP-2 (durch das Minus 
bei Wortlänge verringert sich die 
Adresse nämlich um 2) die Adresse 
des Speichers feststellen muß. Dort, in 
diese Speicherzelle, wird dann unsere 
Zahl geschrieben. Nach dieser Opera¬ 
tion steht der SP dann bei SP-2. 

Um an das BS zu kommen, benützen 
wir beim Assembler sogenannte 
TRAPS (Fallen), die den Prozessor in 
eine Ausnahmesituation führen. Beim 


ATARI 

belegt 

werden 

die Traps wie folgt 

trap 

*i 

;GEMDOS 

trap 

#2 

; GEM (AES und VDI) 

trap 

#13 

; BIOS 

trap 

#14 

; XBIOS 


Findet der Prozessor einen Trap in dem 
Programm, benützt er die Trapnum¬ 
mer als Pointer für die anzuspringende 
Adresse und sichert PC und SR. 

Nach dem Anspringen dieser Adresse 
holt sich das BS die Funktionsnummer 
und die eventuell mit übergebenen 
Parameter und führt die Routine aus. 
Nach der Ausführung übergibt uns das 
BS im Register dO den entsprechenden 
Wert oder eine Fehlemummcr, die 
immer negativ ist Da wir unseren SP 
mit der Funktionsnummer erniedrigt 
haben, müssen wir jetzt nach der 
Ausführung für die korrekte Adresse 
des Stracks sorgen, denn sonst läuft er 
uns irgendwann wie der Schreibtisch 
über. 

Da der SP durch unsere Wordopcra- 
tion um zwei Adressen verringert 
wurde, müssen wir nun durch 
addq.l #2,sp 

die alte Position wieder herstellen. Wir 
addieren also durch add.l zwei 
Adressen hinzu. Da es sich um eine 
Addition unter 8 handelt, können wir 
hier die schnelle Variante verwenden, 
die nun addq.l benannt wird. Gute As¬ 


sembler, wie der GFA-ASSEMBLER, 
ersetzen add. automatisch durch addq., 
falls es sich anbietet. Eigentlich ist 
unser BS-Aufruf damit ja schon fertig, 
es fehlt nur noch die Adresse des 
Bildschirms, und die steht in dO. 

movea.l dO.aO 

bewegt die in dO stehende Adresse in 
das Adressregister aO. Falls der Rück¬ 
gabewert einer Funktion keine 
Adresse ist, müssen wir 

mcwe.(b.w.l) dO.Ziel 

verwenden. Unser kompletter BS-Call 
sieht also so aus: 


mme» 

#2.(sp) 

; Bildschirmadresse 
feststellen 

irap 

#14 

: Betriebssystemaufruf 
(XBIOS) 

addq 1 

#2,sp 

; Strack korrigieren 

movea.l 

d0,a0 

; und Adresse merken 


Toll, oder? So einfach kann Assembler 
sein! 

Jetzt haben wir schon die Adresse des 
Bildschirms in dO stehen und sollten 
uns erst einmal über den Bildschirm 
unterhalten. Ihn können wir uns, wie 
übrigens den gesamten Speicher, als 
eine Reihe von Bits vorstellen, die 
komplett auf eine Schnur aufgezogen 
sind. Wollen wir nun den 111. Punkt 
(Pixel) in die 10. Reihe setzen, han¬ 
geln wir uns einfach neun Reihen ä 640 
Pixel und 111 Pixel an dieser Schnur 
vorwärts. Genau gesagt, wir gehen an 
die Adresse Bildschirm+5871 und 
setzen dort das Byte auf -1 = Schwarz. 
Wer genau aufgepaßt hat, kann jetzt 
schon seine erste eigene Befehlszeile 
schreiben: 

mweb #-1,d0 

Gut! Erinnern wir uns aber mal an die 
Verarbeitungsbreite! Wenn wir alles 
in ,b erledigen würden, kostet uns das 
nur Rechenzeit, also gehen wir auf 
Word oder Long, denn eine Kette kön¬ 
nen wir in 1er, 2er oder 4er Schritten 
durchwandern, wobei wir ja auf eine 
hohe Geschwindigkeit Wert legen 
wollen. Es kommt auch dasselbe 
Ergebnis heraus, ob wir vier Adressen 
nacheinander mit -1 belegen oder 
diese gleichzeitig füllen. Daher ist 

move.l #-1.d0 

genau richtig und auch von derZeit op¬ 
timal. Unser Prozessor liebt übrigens 
Daten in den Registern; da ist er dann 
besonders schnell und flink. Daher 
wollen wir, soweit möglich, alle Daten 
in Registern lassen. 

Unser Monochrome-Bildschirm hat in 
der hohen Auflösung 640x400 Pixel, 
die wir ansprechen können. Daher be¬ 
legen wir nun die Register d 1 und d2 
mit diesen Werten, die wir jedoch von 
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0 aus abzählen und um eins verringert 
übergeben. Da wir ja mit Long ar¬ 
beiten, muß der Wert auch noch durch 
vier geteilt werden, was jedoch der As¬ 
sembler für uns tut. 

move.w #398/4,d2 

move.w #638/4. dl 

Aber halt, normal wäre das doch 399 
und 639! Klar, jedoch hat der 68000er 
einen Sprungbefehl, der sich solange 
wiederholt, bis die Zahl auf -1 gesetzt 
ist. Dieser dbra-Befehl zieht bei jedem 
Durchgang 1 vom Datenregister ab 
und springt bei positiven Zahlen an das 
angegebene Label zurück. Würden wir 
die Zahl nicht um 1 verringern, erhiel¬ 
ten wir statt 400x640 Punkten genau 
401x641 Punkte. 

Nun haben wir also die Register belegt 
und können unsere ersten vier Punkte 
(Long) 'schwärzen’. Da die Adresse in 
aO steht, können wir ohne Probleme 
zur Tat schreiten: 

move.1 dO,(aO)+ 

Den Großteil dieser Befehlszeile ken¬ 
nen wir ja schon! Aber handelt es sich 
hier bei dem (a0)+ um einen 
Schreibfehler? Nein! Wir weisen dem 
Prozessor mit dem V an, die Adresse, 
die in aO steht, nach der Verarbeitung 
um die Verarbeitungsbreite zu erhö¬ 
hen! Genauso könnten wir 

move.l d0.(a0) ; Muster eintragen 

addq.l #4,a0 ; Adresse erhöhen 

schreiben. Aber der Prozessor macht 
das ja schon für uns, so daß wir Platz 
und Rechenzeit sparen, indem wir das 
Register nach der Verarbeitung auto¬ 
matisch erhöhen. Unser Programm 
sieht also erst mal so aus: 


move.w 

#2, (sp) 

; Bildschirmadresse 
feststellen 

trap 

#14 

; Belriebssystemaufruf 
(XBIOS) 

addq.! 

#2.sp 

; Strack korrigieren 

movea.l 

dO.aO 

; und Adresse 
merken 

move.l 

#-l,d0 

; Füllmuster 

move.w 

#398/4,d2; Koordinaten 

move.w 

#638/4,dl 

move.l 

d0,(a0)+ 

: Punkt setzen 


Tja, aber... Genau! Im Basic hatten wir 
doch zwei Schleifen! Die Schleifenbil¬ 
dung im Assembler ist ebenfalls sehr 
einfach. Benötigt werden für uns die 
Anzahl der Durchgänge, ein Label und 
ein Sprungbefehl. Die Durchgänge 
haben wir ja schon mit move.w 
#398/4,d2 festgelegt. Nur, wo wollen 
wir ein Label hinsetzen? Gehen wir 
doch noch mal zum Bildschirm 
zurück: Jede Zeile hat 640 Punkte. 
Und da wir ja 400 Zeilen füllen wol¬ 
len, wäre es doch toll, wenn das Label 
bei move.w #638/4,dl stehen würde. 
Oder? Richtig, zur ersten Schleife fehlt 
also nur noch der Sprungbefehl, und 


dieser lautet, wie schon angcdcutet, 
dbra: 

move.w #2.-(sp) 
trap #14 
addq.l #2,sp 
moveal dO.aO 
move.l #-l,dO 
move.w #398/4,d2 
LOOP: move.w #638/4,dl 

move.l d0,(a0)+ 
dbra d2.LOOP 

Okay! Nun haben wir also die erste 
Schleife gelöst und setzen 400 
Bildschirmpunkte. Aber da war doch 
noch eine zweite Schleife im Basic! 
Richtig! Um den ganzen Bildschirm 
zu setzen, benötigen wir auch noch 
eine zweite Schleife. Versuchen Sie 
doch mal, diese Schleife zu setzen; das 
nötige W issen haben S ie ja jetzt sc hon. 
Alles klar? Wir starten die zweite 
Schleife bei move.l d0,(a0)+, denn 
diese Zeile muß bei jedem Durchgang 
der ersten Schleife 640 Bildpunkte 
setzen. Unser fast fertiges Listing sieht 
jetzt also so aus: 

move.w #2,-(sp) ; Bildschirmad¬ 
resse leslslellen 
trap #14 ; Betriebssystem 

aulrul (XBIOS) 

addq.l #2,sp ; Stradr kom 

gieren 

movea l dO.aO ; und Adresse 
merken 

move.l #-1,d0 ; Muster zum 

"Bildfüllen" 

move.w #398/4,d2 ; Vertikale Auf¬ 
lösung 

LOOPl: move.w #638/4,d0 ; Honzontale 

Auflösung 

LOOP2: move I d0,(a0)+ , Bildmuster ein¬ 

tragen 

dbra d1,LOOP2 , zuLoop2ver 
zweigen bis dl—1 
dbra d2,LOOPl ; Zu Loopl ver¬ 

zweigen bis d2=-1 


Um beim Basic zu bleiben: LOOP1 
stellt die FOR NEXT Schleife für H% 
und LOOP2 die FOR NEXT Schleife 
für V% dar. 

Dieses Listing wäre schon lauffähig, 
wenn wir am Ende unseres Programms 
dieses auch beenden würden. Auch 
hierfür stellt uns das Betriebssystem 
eine Funktion zur Verfügung. Näm¬ 
lich PTERM vom GEMDOS. 

clr.w -(sp) ; PTERM. Programm beenden 
trap #1 ; Betriebssystemaufruf (GEMDOS) 

Mit clr.w 'übergeben' wir die Funk¬ 
tionsnummer 0 an den SP und rufen 
über trap #1 das Gemdos auf. Alles, 
was hinter dieser Funktion steht, wird 
nie erreicht, so daß wir den Strack auch 
nicht korrigieren müssen. 

Unser fertiges Programm sicht also so 
aus: 

Start: move.w #2,-(sp) ; Bildschirmad¬ 

resse feststellen 
trap #14 ; Betriebssystem¬ 

aufruf (XBIOS) 


addq l #2.sp , Strack kom- 

gieren 

movea l dO.aO ; und Adresse 
merken 

move.l #-1,d0 : Muster zum 

"Bildfüllen" 

move.w #398/4,d2 , Vertikale Auf¬ 
lösung 

LOOP 1 : move.w #638/4 ,d 1 : Horizontale Auf¬ 

lösung 

LOOP2: movel d0,(a0)+ . Bildmuster ein¬ 

tragen 

dbra dl,LOOP2 . zu Loop2 ver¬ 
zweigen bisd 1 =-l 

dbra dZ.LOOPl ; Zu Loopl ver¬ 
zweigen bis d2=-l 
clrw (sp) . PTERM. Pro¬ 

gramm beenden 
trap #1 : Betnebssystem- 

aufruf (GEMDOS) 

; Hier kommt das Programm me hm! 

War doch gar nicht so schwer, oder? 

Assembler ist wirklich sehr einfach zu 
erlernen, wenn man sich an einige Re¬ 
geln hält und cxpcrimcnüerfrcudig ist. 
Stören Sie sich bitte auch nicht daran, 
daß Sic von Zeit zu Zeit einen wahren 
Bombenhagel (Systemabsturz) erle¬ 
ben werden. Auch Programmierer, die 
das System sehr gut kennen, erleben 
hier und da faszinierende Abstürze. 

Jetzt können Sie selbst mal loslegen. 
Verändern Sie doch mal die -1 bei 
move.l #-l,d0 in move.l #5,d0 und 
schauen Sie, was da kommt! Ihrer 
Phantasie soll hier keine Grenze 
gesetzt sein. Durch das #% Zeichen 
können Sie auch binäre Zahlen als 
Muster verwenden. Beachten Sie 
jedoch hierbei die Verarbeitungsbrcite 
32 Bit (32 Stellen), 16 Bit (16 Stellen) 
oder 8 Bit (8 Stellen)! Genauso gut 
können Sie aber auch im Hexadezi¬ 
malsystem arbeiten, wenn Sie #S ver¬ 
wenden. 

Etwas zum Nachdenken bis zur 
nächsten Folge haben wir auch für Sie: 
Die Routine läßt sich noch weiter ver¬ 
bessern und optimieren. Probieren Sie 
es aus! Wir sind auf Ihre Ergebnisse 
gespannt und erwarten für die Zukunft 
viele in Assembler geschriebene Pro¬ 
gramme. In der nächsten Folge wollen 
wir uns mal mit der Textausgabe in As¬ 
semblerprogrammen beschäftigen und 
eine Befehlsübersicht für Sie darstcl- 
len. Auf unserer Leserdiskctte finden 
Sie die komplette Befehlsübcrsicht, 
den gesamten Kurs sowie ein paar 
Listings für den GFA-ASSEMBLER. 

(rk) 
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Typen, Trends und schönes 

Wetter 

Die European Computer Trade Show ’90 

in London 


Vom 1. bis 3. April öffnete bei 
strahlendem Sonnenschein das Busi¬ 
ness Design Centre im Herzen Lon¬ 
dons seine Pforten. Die European 
Computer Trade Show stand diesmal 
voll und ganz, im Zeichen des her- 
aneilendcn Binnenmarktes. 

Gemäß des englischen Marktes konnte 
man für die Amigas und Ataris fast nur 
Spiele bewundern. Auch nur für den 
STE, der auf der Insel weit mehr ver¬ 
breitet ist als bei uns, gab es schon 
eigene Spiele. Nach Angaben der Soft- 
wareprodu7.enten gibt es jedoch weit 
mehr Probleme mit der Kompatibilität 
zwischen dem alten und dem erweiter¬ 
ten ST als bisher angenommen. In 
England sind daher die meisten Spiele 
mit einem Aufkleber versehen, der sie 
als STE tauglich bzw. untauglich 
kennzeichnet. Einige der neuen Pro¬ 
gramme laden auch je nach verwen¬ 
detem Modell unterschiedliche Datas, 
um die besseren Möglichkeiten des 
STE wenigstens teilweise auszu¬ 
nutzen. 

In Grobritannicn ist der STE übrigens 
auch in der 520KB Version erhältlich. 
Der 520STE mit eingebautem Lauf¬ 
werk kostet zusammen mit einem 
Spiel und Joystick 269 Pfund, also 
etwa 770 DM. Da der ST in England 
hauptsächlich für Spiele eingesetzt 
wird, gibt es auch wenige Programme 
für die bei uns üblichen monochromen 
Monitore. Etwa 85% der ST An¬ 
wender besitzen einen Farbmonitor, in 
Deutschland kaum ein Drittel. 

Ganz überraschend fand ich jedoch ein 
DTP Programm für etwa 60 (in Wor¬ 
ten: sechzig) DM. Das Programm ist 
zwar teilweise relativ langsam, die 
Ergebnisse lassen sich aber durchaus 
sehen. Es läuft ab 1 MB und unter¬ 
stützt bisher alle gängigen 9 und 24 
Nadeldruckcr. Treiber für Laser¬ 
drucker sollen bis Ende Mai folgen. 
Ob es auch in Deutschland erhältlich 
sein wird, ist bisher nicht bekannt. 


Doch nun zurück zur Messe. Natürlich 
gab es rechtzeitig zur Fußball-Welt¬ 
meisterschaft in Italien jede Menge 
Fußballsimulatoren. Auch als Mana¬ 
ger unterschiedlicher Teams kann man 
sich einmal mehr versuchen. Die wohl 
eindrucksvollste Version eines Fuß¬ 
ballspiels lief auf einem Archimedes, 
der natürlich jede Menge Power für 
eine fließende Animation bol. 

Auch Ballerspicle mit Lichtpistolen 
sind im Kommen. Besonders preis¬ 
werte Lichtpistolen gab es für den 
Amiga (ab etwa 90 DM). 

Auch Strategiespiele erfreuten sich 
großer Beliebtheit. So kann man 
beispielsweise als Hannibal, Caesar, 
Alexander der Große oder auch als 
Napoleon im großen Topf der 
Geschichte herumrühren. 

Weit interessanter als die neuen Spiele 
war die Gerüchteküche. Die ECTS ist 
eine reine Fachmesse, der Eintritt ist 
auch nur für Fachleute möglich. Kurz: 
die ideale Umgebung für allerhand in¬ 
offizielle Ankündigungen. 

W ie auch schon auf der CeBIT war der 
zu erwartende Atari Portfolio auf 
80286er Basis in aller Munde. Doch 
auch verschiedene Softwarcentwick- 
lcr und Mitarbeiter von Atari UK wol¬ 
len von einem ST kompatiblen 
Taschencomputer gehört haben. Ob 
man dann endlich unter der Schulbank 
DTP betreiben kann, konnte nicht in 
Erfahrung gebracht werden, uninteres¬ 
sant wäre jedoch ein Portfolio ST si¬ 
cherlich nicht. 

Ein anderes Gerücht, diesmal von 
einem höheren Mitarbeiter von Com- 
modore, will wissen, daß Irving Gold, 
Geschäftsführer von Commodore, 
eine enge Zusammenarbeit mit der 
Firma NEXT anstrebt. Für Steve Jobs, 
Mitbegründer der Firma APPLE und 
derzeitiger Leiter von NEXT, käme 
ein solcher Zusammenschluß sicher 
nicht ungelegen. 


Über den Amiga 3000, der ja schon 
vergeblich auf der CeBIT gesucht 
wurde, waren zwar die abenteuer¬ 
lichsten Dinge zu hören, etwas Hand¬ 
festes gab es jedoch nicht. Möglicher¬ 
weise wird man ihn auf der Which 
Computer? Show zu Gesicht bekom¬ 
men. Commodore hat für diese Messe 
etwas Besonderes angekündigt!? 

Bereits erhältlich ist aber ein Er- 
weiterungskit, den die Firma Pheonix 
für alle Amiga 1000 Benutzer her¬ 
ausgebracht hat. Das Pheonix Board 
ersetzt das alte Amiga Mother Board 
und alle Erweiterungskarten, Kon¬ 
troller etc. bleiben jedoch erhalten. Die 
Erweiterung kostet 480 Australische 
Dollar (640 DM) und soll die Leistung 
des Al000 auf das Niveau des A2000 
emporstoßen. Die Platine ist in der 
Grundausstattung mit 1 MB bestückt, 
kann jedoch auf 2 MB (10 MB extern) 
aufgerüstet werden. Sie bietet auch 
Steckplätze für den neuen Chipsatz 
(ECS), über den man derzeit ja überall 
munkelt. 

Zusammengefaßt waren in London 
zwar keine Sensationen zu finden. 
Doch allein die vielen Gerüchte und 
die Ruhe, die man wohl auf keiner 
anderen Computermesse findet, waren 
die Reise wert. 

Martin Wollny 
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DIN A4 Grafiken 
mit neuer Füll¬ 
routine 


Wer in der Clubzeitung 5/89 auf Seite 
12 den Artikel "Doppelt ist größer” 
gelesen hat, wird festgestellt haben, 
daß dazu offensichtlich das Listing 
fehlt. Dies soll hier nachgeholt wer¬ 
den. Zusätzlich aber wird hier eine 
neue Füllroutine vorgestellt. Der 
gewöhnliche FILL-Befehl des GFA- 
BASIC macht nämlich bei den aktuel¬ 
len XBIOS(3)-Bildschirmrändem halt 
- dies ist für ein zweiscreeniges Bild 
aber tödlich (oder zumindest störend). 

Zunächst aber zum Einrichten der 
Doppelscreen (PROCEDURE in- 
stall.bild): Der Basicspeicher wird 
durch RESERVE um 65000 Bytes 
verringert. Hinter der neuen HIMEM- 
Adresse kommt an die nächste, durch 
256 teilbare Adresse (wichtig für 
XBIOS(5)!), der neue Bildschirm¬ 
bereich, der nun 64000 Bytes groß ist 
Dort wird eine kleine Beispielgrafik 
erstellt und mit XBIOS(5) die obere 
Hälfte zunächst als neuer Bildschirm¬ 
speicher angemeldet. 

In der PROCEDURE main.prg kann 
durch die Cursortasten "nach oben/ 
unten" das Bild gescrollt werden. 


Dabei wird von der aktuellen Adresse 
des sichtbaren Ausschnitts das kleinste 
gemeinsame Vielfache von 80 und 256 
- namenüich 1280 - abgezogen bzw. 
dazugezählt und der neue Ausschnitt 
mittels XBIOS(5) angemeldet. Mit der 
Return-Taste wird das Programm 
beendet und RESERVE und 
XBIOS(5) auf die Startwerte gebracht. 

Außerdem kann im Hauptprogramm 
durch Druck auf die linke Maustaste 
ein gewünschter Screenbereich ausge¬ 
füllt werden. Dabei wird zuerst die 
eine Bildhälfte in einem gesonderten 
Screenbereich mit schwarzem Füll¬ 
muster ausgefüllt. Indem dann die 
Originalhälfte im XOR-Modus 
darüberkopiert wird, "stanzt" man 
somit die Maske aus, d.h. die Umrisse 
und die übrige Grafik werden entfernt 
In der Arbeitsscreen steht somit nur die 
Mustermaske. 

Nun wird diejenige Pixelzeile unter¬ 
sucht, die an die andere Hälfte an¬ 
grenzt - also 0 bzw. 399. Wo sich hier 
gesetzte Pixel finden, sollte das Muster 
die andere Bildhälfte weiterfüllen. Da 
das der FILL-Befehl aber nicht bringt. 


merkt man sich einfach diese Stellen, 
um den Füllbefehl im nächsten Durch¬ 
gang auf diese Punkte anzusetzen. So¬ 
dann wird die Maske mit dem 
gewünschten Füllmuster gefüllt und 
aus dem Arbeitsbereich in den 
Bildspcicher zurückkopiert. Nun wird, 
wie schon angedeutet, die andere 
Screenhälfte in den Arbeitsbereich 
kopiert und an den ermittelten X-Stel- 
len - Y = 399 bzw. 0 - wieder erst mal 
mit der Maske gefüllt, usw. 

Diese Schleife wird solange durch¬ 
laufen, bis die Maske nicht mehr an die 
andere Hälfte anstößt. Anzumerken 
wäre noch, daß das Füllen ein klein 
wenig dauert (klar), sich aber während 
dieser Zeit nichts auf dem Bildschirm 
tut Also nicht gleich Break oder Reset 
drücken! Außerdem das Programm 
immer mit Return verlassen, damit 
Bildschirm- und Basicspeicher wie¬ 
derhergestellt werden können. 

Andreas Walthes 


@insta!l.bild ! * Doppelscreen mit Scolling und Füllroutine ' 
@main.prg ! * v. A. Walthes, Leidlstrae 3, 8390 Passau * 
@uninstall ! * GFA-BASIC 2.0/3.0 (?) 14.01.1990 ATARI ST * 

DEFFN adr.bld=(VARPTR(bld%(0))+255) AND &HFFFF 0 O ! 

Adresse des Füll-Arbeitsspeichers als 
Funktion! 

DEFFN setscr(l.ad%,p,ad%)=XBIOS(5,L:l.ad%,L:p.ad%,-1) I 

XBIOS(5)-Funktion 

PROCEDURE install.bild 

CLS 

start.res%=FRE(0) I Startwerte sichern 

start.scr%=XBIOS(2) 

RESERVE FRE(0)-65000 ! Platz schaffen für 2 Screens 

screen.adr.1%=(INT((HIMEM+2)/256)+1)*256 I Adresse der 

ersten Hälfte 

VOID @setscr(screen.adr. 1 %+16000,screen adr. 1 %) I xbios- 

AHrPccrin uoränHom 

BMOVE start.scr%,XBIOS(2),32000 ! Neuen Screenbereich 

löschen 

BMOVE start.scr%,XBIOS(2)+32000,32000 


REPEAT ! Kleine Grafik 

INC b% 

DRAW TO RND*640,RND*800-200 
UNTIL b%=40 

VOID @setscr(screen adr 1%,screen adr.1%)! xbios-Adressen 

verändern 

DIM q%(5),z%(5),r%(8) I BITBLT-Parameter 

q%(1)=640 1 (Bei GFA-BASIC 3.0 anders?) 

q%(2)=400 

q%(3)=q%(1)/16 

q%(5)=1 

z%(1)=640 

z%( 2)=400 

z%(3)=q%(3) 

z%(5)=1 

r%(2)=639 

r%(3)=399 

r%(6)=639 

r%(7)=399 

RETURN 

» 
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PROCEDURE main.prg 
REPEAT 
REPEAT 
i$=INKEY$ 

MOUSE x%,y%.k% 

IF k%=1 ! Füllen? 

<®new fill(x%,y%,2,4) I Koordinaten und Füllmuster über¬ 
geben. 

ENDIF 
UNTIL i$>" 

HIDEM 

IF i$=CHR$(0)+CHR$(72) AND offset%>=1280 I Nach oben 
' scrollen 

SUBoffset%,1280 

VOID @setscr(screen.adr 1 %+offset%,screen.adr. 1 %+offset%) 
ENDIF 

IF i$=CHR$(0)+CHR$(80) AND offset%<=30720 I Nach unten 

scrollen 

ADD offset%, 1280 

VOID @setscr(screen adr 1 %+otfset%,screen.adr.1%+offset%) 
ENDIF 
SHOWM 

UNTIL i$=CHFt$(13) ! Return = Ende 

RETURN 


PROCEDURE unlnstall 

VOID @setscr(start.scr%,Start scr%) 
RESERVE Start res% 

EDIT 

RETURN 


PROCEDURE new.fill(x%,y%,f1%,f2%) 

LOCAL cv%,cb%,gn$.ir%,jr%,ik%,ofst%,erstel,xx$,pe%.as%.gn% 


cv%=XBIOS(3) I Aktuelle Bildschirmadressen sichern 

cb%=XBIOS(2) 

DIM bld%(8190) I Speicher für Zusatzscreen reser¬ 

vieren 


IF y%+(offset%/80)<=399 
ofst%=32000 
ELSE 

SUB y%,400 
ENDIF 


I Wenn Füllpunkt in der ersten Bild¬ 
hälfte. 

I dann Offset-Startwert 32000 
I (wird spater mit 0 vertauscht) 

I Ansonsten den zwischen 400 und 
799 liegenden Y%-Wert an 
I 0-399 Px anpassen. 


DO 

ofst%=ofst% XOR 32000 I Bildhälftenadressen-Offset ver¬ 
tauschen 

BMOVE screen.adr 1%+ofst%,@adr bld,32000 ! Bildhälfte in 

Arbeitsscreen 

VOID @setscr((5>adr bld,XBIOS(2)) I moven und 
' XBIOS(3)anpassen. 

DEFFILL ,1,1 I Muster der Maske (Schwarz) 

luecke!=-1 


CLR luecke! 

xx$=xx$+MKI$((ir%-1)'8+jr%) I Speichern, wo später Maske 
I noch gefüllt werden muß 

ENDIF 

FILL (ir %-1 )‘8+jr%,(-399)*((ofst%/32000)-1) 

ELSE 

luecke!=TRUE 
ENDIF 
NEXT jr% 

ELSE 

lueckeUTRUE 
ENDIF 
NEXT ir% 

ENDIF 


r%(8)=6 ! Maske in Arbeitsscreen "ausstanzen* 

q%(0)=screen.adr. 1 %+ofst% 
z%(0)=<3)adr.bld 
BITBLT q%(),z%(),r%() 

IF gn$=“ I Wenn erster Durchlauf... 

gn$=SPACE$(160) ! ...Bildzeile an Hälftengrenze holen. 

BMOVE 80'(-399)*((ofst%/32000)-1)+@adr.bld,VARPTR(gn$) 
+80,80 

ELSE I Sonst... 

FOR a%=1 TO 80 I ...auch holen, aber evtl, schon 

I bearbeitete X-Werte ausmaskieren 
pe%=PEEK(@adr.bld-1 +a%-80"399"((ofst%/32000)-1)) 
as%=ASC(MID$(gn$,a%,1)) 
gn%=(as% XOR pe%) AND pe% 
gn$=grt$+CHFl$(gn%) 

NEXT a% 

ENDIF 

gn$=MID$(gn$,81) 

DEFFILL ,f1%,f2% ! Gewünschtes Füllmuster einstellen 

IFerste!=0 ! Wenn erster Durchlauf... 

erste !=-1 

FILL x%,y%+(offset%/80) ! ...An Startpunkt füllen 
ELSE ! Sonst.. 

IF xx$>” I ...An den bei der Maskenerstel¬ 

lung 

FOR ir%=1 TO LEN(xx$)/2 ! ermittelten Stellen füllen. 

FILL CVI(MID$(xx$,ir%*2-1,2)),(-399)*((ofst%/32000)-1) 
NEXT ir% 

ENDIF 

ENDIF 


q%(0)=@adr.btd 
z%(0)=screen.adr. 1 %+ofst% 

r%(8)=7 

BITBLT q%(),z%0,r%() 
xx$="" 

EXIT IF gn$=STRING$(80,0) 
LOOP 

VOID @setscr(cv%,cb%) 
ERASE bld%() 

RETURN 


I Das in der Arbeitsscreen stehende 
I Füllmuster auf das Original- 
transparent draufkopieren 


! Wenn Maske nicht an Hälfte- 
! grenze gestoßen ist ENDE 


IF erste!=0 ! Wenn dies erster Schleifendurch¬ 

gangist... 

FILL x%,y%+(offset%/80) I ...von Startpunkt füllen 
ELSE I Sonst das an den Hälftengrenzen evtl. 

FOR ir%=1 TO 80 I durchgebrochene Muster vom letzten 
I Durchgang weiterlaufen lassen. 
ik%=ASC(MID$(gn$,ir%, 1)) 

IF ik% ! Im Flagstring Gn$ aktuelles Byte als 

! Durchbruchstelle vermerkt? 

FOR jr%=0 TO 7 

I Dann genaue Bits suchen und dort 
I füllen, falls noch nicht geschehen 
IF (ik% AND (2 A (7-jr%))) AND 
POINT((ir%-1)*8+jr%,(-399)‘((o»st%/32000)-1))=0 
IF luecke!=-1 
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Jedem seinen Schlüssel 


Haben auch Sie Daten, die nicht gleich 
jeder sehen sollte? Dann haben Sie 
sich sicher auch schon mal mit der 
Datenverschlüsselung beschäftigt Die 
einfachste Möglichkeit, die Daten zu 
verschlüsseln, besteht darin, zu jedem 
Byte z.B. eine Konstante zu addieren. 

Kompilierter wird es, wenn dem Al¬ 
phabet ein anderes zusammengewür¬ 
feltes Alphabet zugeordnet wird. In 
beiden Fällen wird jedem Buchstaben 
ein definitiver Wert zugeordnet. Für 
das Entschlüsselungssystem ist dies 
keine schwierige Aufgabe. Anders 
sieht es aus, wenn die Bytes mit immer 
wechselnden Zahlen addiert werden. 
Denn hier weist ein Buchstabe immer 
andere Werte nach der Verschlüs¬ 
selung auf: z.B. Code = 1234 

Text: 

Dies ist ein zu verschlüsselnder Text 


Verschlüsselung: 

1234123412341234123412341234123412 

341 

Resultat: 

ekhw!kvx!glrf\x$wguwdjotuhpmfhv!V 

h\u 

Nun ist es möglich, daß ein Zeichen 
aus dem Quelltext unterschiedlich ver¬ 
schlüsselt werden kann. Die Ent¬ 
schlüsselung ist dann allerdings nicht 
mehr so einfach. Wird der Text mit 
dem Code durch Addition verknüpft, 
so ist der Code bei der Dechiffrierung 
vom Text zu subtrahieren. Wird der 
Text jedoch mit dem Code durch ein 
logisches XOR verknüpft, so kann 
man bei der Entschlüsselung densel¬ 
ben Algorithmus verwenden, denn 
durch eine zweimalige XOR-Ver¬ 
knüpfung erhält man wieder das Orgi- 
nal. 


Eine einfache und schnelle Möglich¬ 
keit Daten mit XOR zu verschlüsseln 
und zu entschlüsseln, geben uns die 
urafikbefehle. Und därnit ist eine neue 
Verschlüsselungsart geboren, die sog 
"grafische Verschlüsselung". 

Die zu verschlüsselnde Datei wird in 
den Bildschirm geladen und grafisch 
XOR mit einem Bild, mit Strichen 
oder Füllmustem ausgestattet. An¬ 
schließend wird sic abgespeichert. Zur 
Entschlüsselung ist die ganze Pro¬ 
zedur nun noch einmal auszuführen 
Will man dem Ganzen noch einen 
Profi-Touch geben, so schaltet man 
vor den grafisc hen Spielereien in einen 
Hintergrundbildschirm. 

Eduard Rhode 


‘ .von E. Rhode.’ 

' .Neu Radenbeck 23... ’ 

' .2121 Thomasburg....' 

* 

Jedem seinen Schlüssel 


’ Verschlüssellungsprogramm 

PROCEDURE schluessel(code$,file$) 
code$= Code file$ = filename der zu verschlüsselnden Datei 


LOCAL c$,f$,s$.s% 

IF EXIST(file$) 

FOR i &=1 TO 32/LEN(code$)+1 
c$=c$+code$ 

NEXT i& 

code$=LEFT$(c$,32) 

FOR i&=1 TO 16 
f$=f$+MID$(code$,(i&-1 )*2,2) 
NEXT i& 

DEFFILL 1,f$ 

GRAPHMODE 3 
OPEN "u’,#1 ,file$ 
s%=LOF(#1) 

WHILE s%>32000 
BGET #1 ,XBIOS(3),32000 
PBOX 0,0,639.399 
RELSEEK #1,-32000 
BPUT#1,XBIOS(3),32000 
SUB s%,32000 
WEND 


I Local-Definitionen 
! Wenn File existiert, 

I code$ auf min. 32 Zeichen erweitern. 

I Code$ auf 32 Zeichen zurechtschneiden. 

! Umwandlung des Codes in ein Füllmuster. 

I Füllmuster definieren. 

! Zeichenmodus definieren. 

! File öffnen. 

! Länge des Files bestimmen. 

I Daten von File holen auf Bildschirm. 

! Gefülltes Rechteck zeichnen. 

I Filepointer um 32000 zurücksetzen. 

! Bildschirm in File schreiben. 


BGET #1,XBIOS(3),s% 
PBOX 0,0,639,399 
RELSEEK #1.-s% 
BPUT #1,XBIOS(3),s% 
CLOSE #1 
CLS 

DEFFILL 1,1 
GRAPHMODE 1 
ENDIF 
RETURN 


I Restliche Bytes holen. 
I Rest siehe oben. 


I File wieder schliessen. 

! Bildchirm löschen. 

I Füllmuster zurücksetzen. 

I Zeichenmodus zurücksetzen. 





DATA-Wüsten werden zu DATA-Oasen 


Datazeilen enthalten Daten. Das Ab¬ 
schreiben dieser Datazeilen artet meist 
in eine mühsame stupide Tipparbeit 
aus, die man so gering wie möglich 
halten sollte. Außerdem wäre eine 
übersichtliche Vorlage erstrebens¬ 
wert. Um unnötigen Ärger zu er¬ 
sparen, sollte die "DATA-Wüste" zu¬ 
sätzlich Checksummen enthalten. 

DATA-Wüsten werden zu DATA- 
Oasen durch folgende drei kurze Pro¬ 
gramme: ein Programm für den Pro¬ 
grammierer zum Generieren von 
Datazeilen aus Files, ein Programm 
zum Einlesen der Daten und ein Pro¬ 
gramm, um sich die Tipperei zu 
vereinfachen. Der Programmcode ist 
kurz und gut dokumentiert. 

Die Bedienung: 

Data gen.gfa: Ein Programm zum 
Generieren von Data-Zeilen aus 
einem File 

Drei Parameter müssen übergeben 
werden: der Filename des zu wan¬ 
delnden Files, der Name der zu kreie¬ 
renden Datei und ein Flag, ob der Code 
mit oder ohne Checksumme erzeugt 
werden soll. Es werden dann 
Datazeilen mit 16 Hexdaten und gege¬ 
benenfalls dreistelliger Checksumme 
erzeugt. 

Data_ein.lst: Eine Procedure zur 
manuellen Eingabe von Datazeilen 

Bei Bytegröße sind die meisten hexa¬ 
dezimalen Zahlen zweistellig, die 
Dezimalen schon dreistellig. Leider 
besitzt der ST keinen Hex-Block zur 
Eingabe, wobei der Ziffemblock von 
der Anzahl der Tasten her schon 
ausreichen würde. Daher wurden ein¬ 
fach Tasten umbenannt. Die obere 
linke Taste "A" = B, T = C, = D 
= E und "+" = F. Die '."-Taste 
wurde nicht umdefiniert, da keine 
Kommas eingegeben werden brau¬ 
chen. So kann man sich noch ein paar 
Tastendrücke sparen. 

Eigentlich sollte es keine Datazeilen 
ohne Checksumme geben. Trotzdem 
verzichten manche Programmiererauf 
diesen Komfort. Ich gebe lieber drei 
Ziffern mehr ein, als dann stundenlang 
Fehler zu suchen. Nach dem 16. 
Datum kann eine dreistellige Check¬ 
summe eingegeben werden. Füllen Sie 
bitte die ersten Stellen gegebenenfalls 
mit Nullen auf. Beim Eingabepro¬ 
gramm wurde auf eine Überprüfung 
der Checksumme verzichtet. Das Pro¬ 
gramm wäre zu groß geworden. Die 
Checksumme kann aber mit eingege- 


PRINT' Eduard Rhode, Neu Radenbeck 23, 2121 Tbomasbura* 
PRINT 

PRINT" Data Zeilen Generator* 

ALERT 1,‘Mit Checksumme*, 1,*Ja|Nein*,check| 

CLS 

PRINT 'Welche Datei soll gewandelt werden?" 

DO 

FILESELECT *\*.~,a$,b$ 

EXIT IF b$" 

LOOP 

CLS 

PRINT ‘Wie soll cfie neue Datei heißen?* 

DO 

FILESELECT V.**,a$,z$ 

EXIT IF b$“ 

LOOP 


OPEN T,#1,b$ 

OPEN *o*,#2,z$ 

DO 

c$=*Data* 

FOR i&=1 TO 16 
EXITIF EOF(#1) 
a|=INP(#1) 

c$=c$+*,*+HEX$(a|,2) 

ADD check%,a| 

NEXT iS 
IF check| 

c$=c$+*,*+HEX$(check%,3) 

check%=0 

ENDIF 


! Eingabedatei öffnen 

I Ausgabedatei öffnen 

I Endlosschleife Anfang 

I Speicherstring belegen oder zurücksetzen 

116 Daten pro Zeile 

! Abbruch, falls Dateiende erreicht 

I ein Byte holen 

! Speicherstring, um Komma und 
! Hexzahl von Byte erweitern 
! Checksumme bilden 
! nächstes Byte 

! Wenn Checksumme gebildet werden soll, 

I Speicherstring um Checksumme erweitern 
! Checksumme zurücksetzen 


MID$(c$,5,1)=* * ! Erstes Komma im Speicherstring löschen 

PRINT #2,c$ ! Speicherstring ausgeben 

EXIT IF EOF(#1) ! Ende, wenn Dateiende erreicht 

LOOP | Endlosscheife Ende 


CLOSE 


! alle Dateien schliessen 


' data_ein.gfa 


’ von E Rhode 
' Neu Radenbeck 23 
' 2121 Thomasburg 


PROCEDURE data_ein_init 
' Funktionstaste belegen 
KEYDEF 10,'DATA * 

* daten lesen 
DIM data%(1,17) 

RESTORE scandatas 
FOR i%=0 TO 17 
READ a$ 

LET data%(0,i%)=VAL(*&H*+a$) 
NEXT i% 

RESTORE asciidatas 
FOR i%=0 TO 17 
READaS 

LET data%( 1 ,i%)=VAL(’&H*+a$) 
NEXT i% 

aa%=XBIOS(16,L:-1 ,L:-1 ,L:-1) 
ret%=LPEEK(aa%) 

RESERVE 100000 
r%=MALLOC(256) 


! F10 belegen 

I Datenfeld definieren 
I Datenzeiger auf Scandatas richten 
! Scancode lesen 
I Datum lesen 

! Datum umwandeln und speichern 
! nächstes Datum 

! Datenzeiger auf ASCII-Daten richten 
! ASCII-Code lesen 
! Datum lesen 

! Datum umwandeln und speichern 
! nächstes Datum 

! Vektor auf Tastaturtabelle erfragen 
! Vektor auf Unshift-Tabelle erfragen 
I Speicher freigeben 
! Speicher reservieren 


' tabeile copieren 

FORi%=0TO31 ! 32*4=128 Bytes kopieren 

LPOKE r%+i%*4,LPEEK(ret%+i%*4) ! 4 Bytes lesen und schreiben 
NEXT i% ! nächstes Langwort 
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ben werden und wird dann beim Lesen 
der Datas überprüft Nach Drücken der 
Return-Taste wird die letzte Zeile ab¬ 
gespeichert und automatisch ein 
DATA" ausgegeben, sodaß dieser 
Befehl auch nicht mehr geschrieben 
werden muß. 

Das Programm wird mit der Esc-Taste 
verlassen. Die letzte Zeile wird nicht 
mit abgespeichert. Daher drücken Sie 
vor Esc noch einmal Return. Die Datei 
wird geschlossen und kann jetzt hin- 
zugemerget werden. 


Dataread.lst: Datei mit Procedure 
zum Einlesen und Speichern der 
Daten 

Zuerst stellt man mittels der RE- 
STORE-Marke den Datenlesezeiger 
auf den richtigen Anfang. Sodann 
kann die Prozedure datas lesen (pari, 
par2,par3) aufgerufen werden. Ihr 
müssen drei Parameter übergeben 
werden. Der erste enthält die Anzahl 
der zu lesenden Daten. Der zweite ent¬ 
hält eine Adresse, an der die Daten 
transportiert werden sollen, und der 


letzte zeigt an, ob mit (=-1) oder ohne 
(=0) Checksumme gelesen wird. Er¬ 
folgt ein Chccksummcnfehler, so wird 
eine Fehlermeldung milder fehlerhaf¬ 
ten Datenzeilennummcr ausgegeben. 
Gerechnet wird hier ab der Marke, auf 
die der Restore-Zeiger gerichtet 
wurde. 

Eduard Rhode 


' tabeile ändern 
FOR i%=0 TO 17 

POKE r%4data%(0,i%),data%( 1 ,i%) 
NEXT i% 

aa%=XBIOS(16,L:r%,L:-1,L:-1) 

RETURN 

PROCEDURE data_ein_ende 
aa%=XBIOS<16.L:ret%,L:-1,L:-1) 
v%=MFREE(r%) 

RESERVE 

RETURN 

PROCEDURE data_ein_datas 
scan datas: 

DATA 63,64,65,66 
DATA 67,68,69,4A 
DATA 6A,6B,6C,4E 
DATA 6D,6E,6F,72 
DATA 70,71 
asdidatas: 

DATA 31,32,33,34 
DATA 35,36,37,38 
DATA 39,41,42,43 
DATA 44,45,46,0D 
DATA 30.2C 
RETURN 

Procedure zum Lesen der Daten 


118 Daten ändern 
! Datum ändern 
! nächstes Datum 

! neue Tabelle dem System mitteilen 


! alte Tabelle wieder aktuell 
I rerservierten Speicher wieder freigeben 
! Speicherplatz wieder GFA-BASIC zuteilen 


! Datenmarke 


! Datenmarke 


PROCEDURE dataslesen(anzahl%,wohin%,check&) 

' anzaht% der zu lesenden bytes 
' wohin mit den daten 

check& 1 mit checksumme 0 ohne checksumme 


DO 

INC z% 

FOR i4=1 TO 16+checkS 
EXITIF j%=anzah l%+check& 
READ a$ 

EXIT IF LEN(a$)=3 
INC j% 

a%=VAL('&H'+a$) 

ADD c%,a% 

POKE wohin%+j%-l ,a% 
NEXT i& 

IF check&=1 
IF c%VALC&H"+a$) 


! Endlosschleife Anfang 
I Zeilenzähler +1 
I Daten pro Zeile 

I Ausgang, wenn alle Daten gelesen 
! Daten lesen 

! Ausgang, wenn Checksumme gelesen 
I Datenzähler +1 

! Umwandeln der Daten in dezimal 
I Checksumme bilden 
I Gelesene Daten abspeichem 
I nächstes Datum 


IF checkS-1. ! wenn Checksumme 

afpcT 1 * ’t H hf i$) n ' Über Prtifen, ob errechnete gleich gelesener Summe 

ALERT 3, Fehler ,n Datazeiler + STR$(z%),1,-Ende',als < + >< + x + >< + >< + >< +> ! Fehlermeldung 

! wenn Fehler Ende 

ELSE I sonst 

1 Checksumme zurücksetzen 

ENDIF 

ENDIF 


EXIT IFj%=anzahl% 
LOOP 
RETURN 


! Ausgang, wenn alle Daten gelesen 
! Schleifenende 
! Procedureende - zurück 



• HABA 
COMPUTER AG 
Münsters» 9 
2000 Hamburg 54 
040/56601-1 

• Sicnknecht 
Bürokommunikation 
Heiligengeisis». 20 
2120 Lüneburg 
041 31 / 4 61 22 

• EDV- 
Bcratungscenter 
Cuxhavcncr Sir. 1 
2170 Hemmoor 
04771 / 74 04 

• Der Compuierladen 
Conansberg 2 
2210 Itzehoe 

* I.ayout Service 
Eckemförder Sir. 83 
2300 Kiel 1 

04 31 / 18 09 75 

* Computer-Studio oHG 
Am Lomsenpark 31 
2380 Schleswig 
04621 / 2 98 51 

* Computersystemc 
Am Pferdcmarkt 5 
2720 Rotenburg / W. 
04261 / 21 29 

* PZ-Sequenzdesign 
GBR 

Bahnhofslr. 24 
2842 Ix.hne (Oldb.) 

0 44 42/58 64 

• IVRMA TELEPOLNT 
Posthalterweg 4a 
2900 Oldenburg 

• Carl Wöltjc GmbH 
Hciligengeislstr. 6 
2900 Oldenburg 
0441/40 45 93 

* Enesland Data 
Berliner Str. 17 
2948 Schortens 

* Com Data 
Am Schiffer¬ 
graben 19 
3000 Hannover 1 
05 11 / 32 67 36 

• S MC GmbH 
Schulslr. 7 
3007 Gehrden 1 
051 08/51 67 

* 1- & T 

Computervertncb 
Am Homberg 1 
3040 Soltau 
0 51 91 /I 65 22 

• Witte Bürotechnik 
Koopmannshof 69 
3250 Hameln 1 

0 51 51 / 75 95-96 

* Dr. Hildcbrandl 
& Buchholz 


GFA-CLUB-Händler 


Magdeburger 
Kamp 10 
3380 Goslar 
05321 /80731-32 

• TRIFOLIUM 
Grassweg 14 
3500 Kassel 
05 61 / 282824 

• OFFICE 
AUTOMATION 
Van der Werff 
Str. 6 

4000 Düsseldorf 1 
02 11/77 20 31 

• Computer 
Hard- & Software 
Irenenstr. 76 c 
4000 Düsseldorf-Un- 
terrath 

• HOCO 

EDV-Anlagen GmbH 
Ellerstr. 155 
4000 Düsseldorf 1 
02 11 /78 52 13-14 

• Roia Datenverar¬ 
beitung GmbH 
Süchtelner Str. 7 
4060 Viersen 1 

0 21 62/3 10 11 

• ssb software-studio 
brakmann 
Württembergslr. 34 
4200 Oberhausen 11 
02 08 / 66 12 95 

• Bottroper 
Computer Team GbR 
Pestalozzis». 35 
4250 Bottrop 
02041 / 6 21 20 

• R. Wischolek 
Computertechnik 
Mesterolh 9 

4250 Bottrop-Feld- 
hausen 

0 2045/8 1638 

• EDV-Thiel 
Lörhof 8 

4350 Reckling-hauscn 
0 23 61 / 2 80 29 

• OCB GmbH 
Wallstr. 3 
4422 Ahaus 

0 25 61 /50 21 

• DELO-COMPUTER- 
TECHNIK 
Kranenbusch 28 
4600 Dortmund 15 

• Mcntis GmbH 
Poststr. 15 

4650 Gelsenkirchen 
02 09 / 5 25 72 

• CSF Computer & Soft¬ 
ware GmbH 
Heeperstr. 106-108 
4800 Bielefeld 1 

05 21 / 6 1663 


• Knoll Computer 
Wilhelmstr. 5 
4904 Enger 

0 52 24/44 19 

• ProElcktronic 
Königstr. 17-19 
4972 Löhne 1 

0 57 32/10 19-0 

• Rothkegel & Rolf 
Vogelsanger Str. 278 
5000 Köln 30 
0221/54 1036 

• MP Software Service 
Reuters». 49 

5060 Bergisch Glad¬ 
bach 2 

0 22 02/2 17 84 

• RODA-SOFT 
Bahnhofslr. 6 
5120 Herzogenrath 
0 24 06 / 7 91 00 

• EDV-Vertrieb 
Gerhard-Hauptmann- 
Slr. 33 

5270 Gummersbach- 
Dieringhausen 
0 22 61/7 46 60 

• Bürocenter Lehr 
GmbH 
Güterstr. 82 
5500 Trier 

06 51 /20 97 10 

• Computer Finke 
Kipdorf 22 
5600 Wuppertal 1 
0202/45 32 33 

• Wrede 
Ruhrplatz 7 
5778 Meschede 
02 91 /60 94 

• W. Kraling KG 
Pf 2240 

5788 Winterberg 
0283/504-8 

• UTS - COMPUTER¬ 
DIENST 
Langgasse 40 

6082 Moerfelden-Wal- 
dorf 

0 61 05 / 2 37 65 

• Georg Heim oHG 
Heidelberger I.and- 
str. 194 

6100 Dannstadt-Eber¬ 
sladt 

0 61 51/5 60 57 

• Digitron GbR 
Rodheimer Str. 34 
6300 Gießen 
0641 /85566 

• MCA 

Computer Center 
Sindelfinger Allee 1 
7030 Böblingen 
0 70 31/22 60 15 


• Böhmer 
Electronic GmbH 
Wilhelm-Zapf-S». 9 
7080 Aalen 

073 61 / 626 86 

• Computerstudio 
W. Brock GmbH 
Fedemsees». 17 
7410 Reutlingen 
0 71 21 /3 42 87 

• Dorfschmid 
Bürotechnik 
Schulweg 18 
7442 Neuffen /N. 

070 25/64 42 

• R. Gärtig 
Software-Entwicklung 
Rings». 4 

7450 Hechingen- 
B euren 

0 74 77/81 58 

• SRE Computercenter 
Schloßplalz 3 

7450 Hechingen 
0 74 71 /1 45 07 

• Martin & Martin 
Soft- und Hardware¬ 
vertrieb 
Kruttenaus». 9 
7630 Lahr/Schw. 
07821/4890 und 
41050 

• Kallenbach EDV 
Bachs». 73 
7465 Geislingen 
074 33/52 44 

• U. Meier 
Computersysteme 
Rings» 4 

7700 Singen /Htwl. 

0 7731 /68222 

• Computer Fachge¬ 
schäft Röslcr 
Rhcingutstr. 1 
7750 Konstanz 
07531/2 1832 

• Computer und Zube¬ 
hör 

Pochgasse 31 

7800 Freiburg 
07 61/55 42 80 

• Metzner Electronic 
Postfach 1114 

7801 Umkirch 
0 7665/5817 

• Software-Service 
Ritters» 6 
7833 Endingen 

0 76 42/38 75 

• Bürobedarf 
Friedrich Resin 
Am Dreispitz 
7852 Binzen 

0 76 21 / 66 01-0 

• Heitler GmbH 
Lenzburger Str. 4 
7890 Waldshut- 


Tiengen 
07751 / 30 94 

• EDV + BÜRO 
SERVICE HESS 
Ulrichs» 24 B 
7918 ülertissen 
0 73 03 / 4 11 89 

• Elektronik Center 
Hindenburgs». 45 

8100 Garmisch-Par¬ 
tenkirchen 
0 88 21 /7 15 55 

• Elektronik Center 
Wächters» 13 
8170 Bad Tölz 

0 8041 /4 1565 

• FS Computer 
Hechlseestr. 1 
8208 Kolbermoor 
08031/94614 

• Computerzubchör/ 
PD-Service 
Robert Rehrl 
Stettener Weg 8 
8221 Teisendorf 
08666/62 49 

• Dutge Computer 
Kants» 15 
8225 Traunreut 
0 86 69 / 3 67 53 

• A.SPITZER 
EDV-Beratung 
Sunklergäßchen 6 
8240 Berchtesgaden 
086 52/631 02 

• Andreas Meyer 
Hard- und Software 
FrauenhoferS». 29 
8255 Schwindegg 

• Karstein Daten¬ 
technik 
Aicha 10a 
8451 Birgland 
09 86/10 28 

• AGP-Shop oHG 
Auf der Schanze 4 
8490 Cham 
09971 / 97 23 

• hib Computer GmbH 
Äußere Bayreuther 
Str. 57a-59 

8500 Nürnberg 21 
09 11 /56 29 26 

• Graf & Schick 
EDV-Lösungen 
Haupts». 32 a 
8542 Roth 

0 9171/50 58-59 

• SchöU 
Compulcrcenter 
Dominikanerplatz 5 
8700 Würzburg 
0931/41 90 60 

• VC GmbH 
Schwaibens» 7 
8901 Stadtbergen 
08 21 /43 50 26 
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Weltweit über 100 OOOmal im Einsatz! 


GFA-BASIC 3.5 EWS ST Weiterentwicklung des GFA-BASIC 3.0 EWS ST mit 35 zu- VfclUI 4AO 
sätzlichen Befehlen aus der linearen Algebra und Kombinatorik. Außerdem verbesserte 
Editor-Eigenschaften (Funktionen falten und Suche in Kopfzeilen gefalteter Funktionen bzw. Prozeduren) 

GFA-BASIC 2.0 EWS ST Q|U| AQ Oft 

Das GFA-BASIC 2.0 Entwicklungssystem ST. Interpreter + Compiler für Einsteiger. v 

GFA-GUP GEM UTILITY-PACKAGE DM 149,- 


k-BASIC KONVERTER nach 


DM498 


,-n^ 


GFA-ASS EMBLER ST 


Professioneller Makro-Assembler für 68000-Programmierer: Leistungsfähiger 
Editor mit integriertem Assembler und Linker. Nachladbarer Debugger 


DM 149,- 


GFA-BÜCHER 


• GFA-BASIC 3.0 STTraining Der ideale Einstieg in die Version 3.0 mm 
mit 14 Themenschwerpunkten. 272 Seiten, Hardcover, ISBN 3-89317-005-7 Vfvl at 

• GFA-BASIC ST: Version 3.0 Das Umsteigerbuch f\Aj» CO 
394 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-004-9 Wvl 

• GFA-BASIC Programmierung Programmierhilfe von der Idee, zum Entwurf, 
zum Programm. Ca. 300 Seiten, Hardcover, inkl Diskette ISBN 3-89317-003-0 Wlvi **T/ 

• GFA-BASIC-Buch Frank Ostrowski (ST) Frank Ostrowski über sein GFA-BASIC «q 

(Programmoptimierung). Ca. 300 Seiten, Hardcover, inkl. Diskette ISBN 3-89317-001 -4 lAlwl # ar 

• Das GFA-Anwenderbuch Wann GFA-BASIC? Wann GFA-ASSEMBLER? 

Die Antwort finden Sie in dem neuen GFA-Anwenderbuch ■■ cft 

Ca. 450 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-011-1 UlYl 


t-DRAFT-plus 


Leistungsfähiges, zweidimensionales CAD-Programm, 
seit Jahren bewährt, tausendfach im Einsatz. Jetzt erweitert 
durch Spline-Funktionen, Metafile-Treiber und DXF-Konverter. 
(Symbolbibliotheken zu GFA-DRAFT-plus auf Anfrage) 


DM 398 


,-neä 


l-STRUKTO 


Dialogorientierte programmierte Unter¬ 
weisung zum strukturierten Programmieren 

DM 249,- ✓ 


k-DRAFT-KONTAKT 


Kontaktverwaltung für den gesamten Schaltplan 

DM 398,- 


l-STATISTIK 


Das professionelle Statistikpaket. Über 70 Verfahren der 
beschreibenden und schließenden Statistik. Umfangreiches 
Handbuch, Beschreibung jedes Verfahrens sowohl ft|U| OQft 
von der rein formalen als auch der Anwendungsseite Vfvl “ ar ö," 
Campus- und Studentenversion: Preis auf Anfrage. 
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GFA Systemtechnik GmbH 
Heerdter Sandberg 30 
D-4000 Düsseldorf 11 
0211/55 04-0 Fax 0211/55 04-44 








